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EXECUTIVE  SUMMARY 


Special  Operation  Forces  (SOF)  are  required  to  respond  rapidly  to  mission  requirements  with 
high  performance  craft  operating  in  all  types  of  sea  conditions.  Mission  requirements  and  sea 
conditions  may  be  such  that  severe  operational  demands  are  placed  on  SOF  personnel. 
Acceleration  loading  on  the  craft  and  craft  personnel  in  rough  water  wave  action  create  rapid 
onset  of  high  levels  of  fatigue,  resulting  in  reduced  mission  performance  and  creating  a  higher 
potential  for  injury  of  the  craft  occupants. 

It  is  difficult  for  the  helmsman  to  judge  the  wave  impact  upon  the  craft,  and  consequently,  to  take 
corrective  action  for  the  optimal  implementation  of  mission  requirements  and  for  the  appropriate 
protection  of  the  craft  occupants.  Real  time  display  of  vertical  acceleration  would  enable  the 
helmsman  to  obtain  a  more  immediate  and  more  reliable  judgment  of  the  behavior  of  the  craft. 
This  would  allow  the  helmsman  to  select  headings  and  speeds  that  would  reduce  the  acceleration 
loading  and  injury  potential  of  the  wave  action.  Moreover,  a  database  to  archive  craft 
acceleration  histories  and  craft  operational  data  for  each  mission  would  allow  for  improved  post¬ 
mission  analysis  and  serve  to  enhance  future  mission  planning,  command,  performance  and 
safety.  Such  a  database  is  needed  to  evaluate  helmsman  and  passenger  safety,  to  develop 
improved  mission  operations,  to  obtain  craft  performance  rating,  to  identify  craft  and  personnel 
performance  limits,  and  for  the  development  of  improved,  and  more  cost  effective,  maintenance 
and  inspection  procedures. 

The  objective  of  this  program  is  the  development  of  a  Helmsman’s  Recording  Accelerometer 
(HRA)  for  console  instrumentation  on  MSW  RIB  and  MK  V  SOC.  The  HRA  is  to  display  craft 
acceleration  data  at  the  console.  This  is  to  provide  the  helmsman  with  data  that  assists  the 
helmsman  in  choosing  speeds  and  headings  for  the  craft  in  order  that  the  helmsman  is  able  to 
reduce  the  perceived  roughness  and  fatigue  placed  upon  the  craft  and  craft  personnel.  The  HRA 
is  to  record  the  mission  data  to  allow  for  post-mission  analysis  of  the  craft  mission  and  operation. 

The  design  and  fabrication  of  an  initial  HRA  test  unit  has  been  completed  and  is  available  as  a 
result  of  the  Phase  I  effort  of  the  HRA  program.  It  is  recommended  that  this  HRA  unit  be  tested 
and  evaluated  in  actual  field  operations  in  order  to  further  identify,  and  quantify,  features  for  the 
HRA  that  serve  to  optimize  the  HRA  design  for  use  by  the  helmsman  with  the  high-performance 
craft.  Testing  and  evaluation  is  recommended  to  ensure  that  the  final  design  of  the  HRA  meets 
all  system  and  operational  requirements,  including  such  items  as  the  optimal  format  for  the 
display  of  information  to  the  helmsman.  In  addition,  it  includes  the  development  of  procedures 
for  optimizing  the  operator’s  selection  of  operating  modes  and  for  the  development  of  a  practical 
command  interface.  It  also  includes  development  of  the  type,  extent  and  presentation  of 
information  required  for  improved  command  and  control  of  the  craft  and  for  post-mission 
analysis.  Furthermore,  it  is  recommended  that  craft  operating  information  useful  for  improving 
the  performance  and  maintenance  of  the  craft,  such  as  engine  boost  pressure  and  engine  RPM,  be 
evaluated  and  incorporated  into  the  HRA  data  recording. 
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1.0  INTRODUCTION 


Special  Operation  Forces  (SOF)  are  required  to  respond  rapidly  to  mission  requirements  in  all 
types  of  sea  conditions.  Mission  requirements  and  sea  conditions  may  be  such  that  severe 
operational  demands  are  placed  both  on  the  operation  of  the  craft,  the  safety  of  the  craft 
occupants  and  the  fatigue  levels  of  the  craft  occupants.  Accelerations  of  the  craft  and 
acceleration  loading  on  the  craft  personnel  in  rough  water  wave  action  is  known  to  induce  fatigue 
and  injury  on  the  craft  occupants  and  consequently  reducing  their  mission  performance. 

Sea  conditions  may  be  such  that  it  is  difficult  for  the  helmsman  to  judge  the  wave  impact  upon 
the  craft,  and  consequently,  to  take  corrective  action  for  the  optimal  implementation  of  mission 
requirements  and  for  the  appropriate  protection  of  the  craft  occupants.  Real  time  display  of 
vertical  acceleration  would  enable  the  helmsman  to  obtain  a  more  immediate  and  more  reliable 
judgment  of  the  behavior  of  the  craft.  This  would  allow  the  helmsman  to  select  headings  and 
speeds  that  would  reduce  the  acceleration  loading  and  injury  potential  of  the  wave  action. 
Moreover,  a  database  to  archive  craft  acceleration  histories  and  craft  operational  data  for  each 
mission  would  allow  for  improved  post-mission  analysis  and  serve  to  enhance  future  mission 
planning,  command,  performance  and  safety.  Such  a  database  is  needed  to  evaluate  helmsman 
and  passenger  safety,  to  develop  improved  mission  operations,  to  obtain  craft  performance 
rating,  to  identify  craft  and  personnel  performance  limits,  and  for  the  development  of  improved, 
and  more  cost  effective,  maintenance  and  inspection  procedures. 

The  HRA  is  needed  as  a  component  of  the  USSOCOM  system  for  the  MSW  RIB  and  MK  V 
SOC.  It  is  needed  to  optimize  the  mission  performance  of  the  helmsman  and  the  MSW  RIB  and 
MK  V  SOC.  The  development  and  fabrication  of  alternative  HRA  instrumentation  to  measure 
acceleration  at  various  locations  on  the  MSW  RIB  and/or  the  MK  V  SOC  is  well  within  the 
capability  of  available  sensor  components  and  data  collection  techniques.  The  design  and 
fabrication  of  the  initial  HRA  test  unit  is  a  significant  step  toward  the  development  of  a  valuable 
instrument  for  enhancing  the  mission  performance  of  the  helmsman  and  the  MSW  RIB  and  MK 

vsoc. 

The  design  and  fabrication  of  an  initial  HRA  unit,  intended  as  a  prototype  test  unit,  is  completed 
and  available  as  a  result  of  SBIR  Phase  I  program,  reference  contract  USZA22-97-P-0051.  This 
HRA  unit  needs  to  be  tested  and  evaluated  in  actual  field  operations  in  order  to  identify,  and 
quantify,  features  for  the  HRA  that  serve  to  optimize  the  HRA  design  for  use  by  the  helmsman 
with  the  high-performance  craft.  This  is  necessary  to  ensure  that  the  development  of  the  HRA  is 
properly  directed  to  meet  all  system  requirements,  including  such  items  as  the  human  factors 
related  to  the  training  of  the  helmsman  and  the  type,  location  and  extent  of  information  required 
on  the  behavior  of  the  craft. 

Craft  instrumentation,  such  as  a  Helmsman’s  Recording  Accelerometer  (HRA)  which  is  designed 
to  measure  and  display  the  accelerations  encountered  by  a  craft  operating  at  high  speed  during 
rough  sea  conditions,  would  provide  the  helmsman  with  immediate  and  valuable  information  on 
the  operation  of  the  craft  in  the  rough  water.  When  properly  tested  and  implemented  the  HRA 
system  will  assist  the  helmsman  in  choosing  speeds  and  headings  to  reduce  perceived  roughness 
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during  SOF  missions  and  to  reduce  fatigue  and  increase  safety  of  craft  personnel.  Utilizing  the 
HRA  for  recording  data  will  provide  post-mission  analysis  of  mission  and  craft.  Post-mission 
evaluation  of  the  loading  on  the  craft  is  important  to  archive  craft  performance  for  various  sea 
conditions,  to  evaluate  safety  parameters,  and  to  improve  craft  performance  data  for  future 
mission  planning. 

The  selection  of  an  optimal  design  for  the  HRA  is  influenced  by  the  system  factors  arising  from 
functional,  physical  and  environmental  considerations,  and  the  technical  challenge  for  the 
practical  development  of  the  HRA  is  the  assessment  of  these  system  requirements  and  the  design 
alternatives.  Specification  of  the  type  of  data  required,  including  accuracy  and/or  resolution,  has 
a  significant  bearing  on  the  optimal  design  arrangement.  The  optimal  HRA  design  is  defined  not 
by  the  development  of  specialized  electrical  components  but  rather  by  its  ability  to  satisfy  the 
functional,  operational,  physical,  environmental,  cost  and  installation  factors  for  the  MSW  RIB 
andMKVSOC. 


2.0  CONCLUSIONS  AND  RECOMMENDATIONS 

The  results  of  the  Phase  I  program  effort  leading  to  the  development  and  fabrication  of  a 
Helmsman’s  Recording  Accelerometer  (HRA)  for  console  instrumentation  on  the  MSW  RIB  and 
MK  V  SOC  are  described  in  this  report. 

The  HRA  is  needed  to  reduce  the  potential  for  injury  to  craft  personnel  and  to  optimize  the 
mission  performance  of  the  helmsman  and  the  craft.  It  provides  a  means  of  significantly 
improving  the  command,  control  and  post-mission  analysis  of  the  operation  of  the  MSW  RIB 
andMKVSOC. 

2.1  Conclusions 

Design  parameters  and  specifications  for  the  HRA  were  established  under  this  Phase  I  program. 
The  design  parameters  and  specifications  were  established  in  accordance  with  the  program 
objective  of  providing  the  helmsman  with  real  time  quantitative  data  and  providing  a  record  of 
craft  accelerations.  The  operational  environment,  the  application  requirements  and  available 
literature  on  rough  sea  operation,  coupled  with  the  objective  of  improving  rough  water  operation 
and  providing  for  post-mission  analysis  of  craft  operation,  served  as  the  basis  for  establishing  the 
specifications. 

The  design  of  a  Helmsman  Recording  Accelerometer  (HRA)  was  completed  and  an  initial  HRA 
unit  was  fabricated  in  accordance  with  the  design  parameters  and  specifications  established  under 
this  Phase  I  program.  The  components  and  details  of  the  HRA  were  selected  from  an  extensive 
review  of  alternative  electronic  components  and  hardware  options,  with  final  selection  based  on 
the  ability  of  the  components  to  meet,  or  exceed,  the  established  specifications.  The  initial  HRA 
design  was  established  with  programmable  features  and,  as  such,  allows  modification  of  the 
HRA  data  collection  and  display  procedures  for  adaptation  to  future,  and  currently  undefined, 
requirements  for  optimal  helmsman’s  utilization  of  the  HRA. 
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The  initial  HRA  unit  fabricated  under  this  program  incorporates,  and  establishes,  the  technical 
conclusions  derived  in  this  program.  The  design  and  fabrication  is  formulated  in  accordance 
with  the  parameters  and  specifications  defined  by  the  application,  operation  and  literature  review 
accomplished  under  this  program.  The  HRA  unit  provides  a  practical  approach  to  improving 
mission  performance  of  the  MSW  RIB  and  MK  V  SOC.  The  HRA  unit  fabricated  under  this 
program  is  available  for  demonstration  and  mission  testing. 

The  parameters  and  specifications  established  in  this  Phase  I  program  are  presented  in  Section 
4.0  of  this  report.  The  final  design  arrangement  is  calibrated  and  tested  through  in-house  testing 
of  the  HRA  unit.  Operating  procedures  for  the  HRA,  established  for  initial  field  test  parameters, 
are  presented  in  Section  6.0  of  this  report.  The  source  code  established  for  operation  of  the  HRA 
is  presented  in  Appendix  C  of  this  report. 

2.2  Recommendations 

The  most  effective  HRA  design  is  defined  not  by  the  development  of  an  initial  design  which 
meets  specifications  but  rather  by  the  ability  of  the  HRA  unit  to  satisfy  the  functional, 
operational,  physical,  environmental,  cost  and  installation  factors  for  the  MSW  RIB  and  MK  V 
SOC.  As  such,  operational  testing  and  adaptation  of  the  initial  HRA  design  is  necessary  to 
determine  the  usefulness  of  the  HRA  and  to  effectively  develop  and  employ  the  HRA.  The 
initial  HRA  unit,  furnished  under  the  Phase  I  program,  must  be  properly  installed  and  adapted  to 
the  helmsman’s  environment  and  needs.  It  is  recommended  that  the  HRA  test  unit  be  installed 
and  that  a  Phase  II  program  be  undertaken  to  fully  evaluate  and  optimize  the  performance  and 
utilization  of  the  HRA  under  actual  field  operations.  With  this  approach,  the  HRA  can  be 
optimized  and  serve  as  a  valuable  instrument  for  enhancing  the  mission  performance  of  the 
helmsman  and  the  MSW  RIB  and  MK  V  SOC. 

Operational  testing  of  the  initial  HRA  unit  is  needed  to  optimize  the  features  of  the  HRA  system. 
Operational  testing  is  needed  to  identify  additional  HRA  features  that  might  serve  to  enhance  the 
use  of  the  HRA.  The  testing  is  required  for  the  evaluation  of  the  features  that  are  already 
incorporated  into  the  HRA  system  and  the  identification  of  the  features,  functions,  scale, 
information  or  similar  parameters  which  can  serve  to  enhance  the  helmsman’s  control  of  the  high 
performance  craft. 

The  computer  processing  unit  and  the  programmable  features  of  the  display  incorporated  into  the 
initial  HRA  test  unit  provide  for  easy  modification  of  the  display  and  operating  procedures  of  the 
current  design.  The  programmable  features  of  initial  HRA  test  unit  allow  testing  and  evaluation 
of  alternative  display  formats  in  response  to  the  results  of  the  recommended  field  testing  and  in 
response  to  recommendations  resulting  from  the  helmsman’s  interpretation  of  the  HRA  data 
display  and  data  collection.  To  properly  utilize  this  programmable  feature  of  the  initial  unit,  it  is 
recommended  that  operational  testing  be  accomplished  to  allow  for  the  evaluation  of  alternative 
helmsman’s  display  procedures  and  for  alternative  computational  procedures  for  the  collection 
and  utilization  of  post-mission  data.  The  type,  extent,  formatting,  display  and  analysis  of  HRA 
data  required  for  improved  command  and  control  of  the  craft  and  for  post-mission  analysis  are 
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factors  to  be  established  in  the  recommended  Phase  II  program.  The  ability  of  the  HRA  test  unit 
to  be  reprogrammed  and  provide  evaluation  of  alternative  system  procedures  provides  an 
opportunity  to  optimize  the  HRA  system  through  appropriate  operational  testing. 


A  Phase  11  program  comprising  the  following  requirements  is  recommended; 

1.  Operational  testing  and  application  development  of  the  initial  HRA  design  is  required.  This 
includes  the  installation  of  the  HRA  and  the  collection  of  data  on  craft  operations  and  system 
performance.  Evaluation  of  the  existing  operational  parameters  of  the  HRA,  evaluation  of 
how  the  HRA  is  utilized  by  the  helmsman,  and  identification  of  the  opportunities  for 
utilization  of  the  HRA  data  by  the  SOF  command  is  to  be  accomplished.  The  evaluation 
needs  to  be  based  on  the  data  collected  on  the  craft  performance  and  on  the  user’s  response  to 
the  presentation  of  the  data.  The  evaluation  is  to  be  accomplished  with  data  obtained  from 
operational  testing  of  the  HRA  unit  under  an  established  set  of  operating  conditions  and 
mission  requirements.  This  testing  and  evaluation  requires  the  installation  of  the  initial  HRA 
test  unit  onto  one  or  more  selected  craft.  It  also  requires  the  interfacing  of  auxiliary  boat 
instrumentation  with  the  HRA  test  unit  and  the  collection  of  operational  data  from  the 
auxiliary  boat  instrumentation.  Additional  HRA  units  are  to  be  provided  if  required  for 
complete  operational  testing. 

2.  The  HRA  test  unit  is  required  to  be  installed  and  programmed  to  archive  the  entire 
performance  history  of  a  representative  set  of  missions  under  varied  operational  conditions. 
The  data  to  be  archived  will  include  data  from  the  HRA  instrumentation  and  auxiliary  craft 
instrumentation.  Documentation  of  sea  conditions,  wave  action  and  wave  onset,  preferably 
through  photographs  of  sea  condition,  is  required  to  correlate  HRA  data  with  sea  action.  The 
data  collected  on  sea  condition,  mission  performance  and  craft  operation  is  to  be  documented 
for  SOF  review.  Command  and  control  procedures  for  improving  the  operation  and  mission 
planning  of  the  MSW  RIB  and  MK  V  SOC  is  required  based  on  analysis  and  evaluation  of 

the  collected  data. 

3.  Based  on  the  Helmsman’s  response,  interpretation,  and  utilization  of  the  displayed  data, 
and/or  based  on  the  need  for  the  display  of  additional  or  alternative  data  as  determined  by  the 
field  tests,  the  Phase  II  program  effort  is  required  to  include  reprogramming  of  the  process 
computer  and  helmsman  display.  This  is  required  to  respond  to  revised  data  collection 
requests  by  SOF  and/or  craft  helmsman.  Programming  of  the  programmable  data  display  is 
required  to  evaluate  alternative  data  display  formats  and  to  evaluate  the  helmsman  s  ability  to 
utilize  alternative  data  formats.  Revised  data  procedures  are  to  be  tested  and  evaluated  in 
subsequent  field  tests. 

4.  Mission  planning,  operational  command  and  operational  control  procedures  are  to  be 
identified  from  the  data  collected  by  the  testing  program.  The  complete  inventory  of  data 
collected  is  to  be  made  available  for  post-mission  analysis  of  the  mission  and  craft  operation. 
The  complete  inventory  of  the  data  collected  will  be  used  to  select  the  data  which  is  usefol  in 
post  mission  analysis  and  in  identifying  mission  performance.  The  collected  data  will  be 
evaluated  to  identify  appropriate  procedures  for  post  mission  analysis.  Procedures  to  utilize 
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the  data  for  improving  mission  planning,  operational  control  and  command  control  will  be 
identified.  Appropriate  computer  processing  procedures  for  the  selection  and  post-mission 
analysis  of  collected  data  will  be  established. 

5.  Post  mission  analysis  of  the  data  collected  will  be  accomplished  to  identify  mission 
performance,  identify  parameters  for  future  mission  planning  and  improve  helmsman  control 
procedures.  The  performance  capabilities  of  the  craft,  the  overall  ability  of  the  HRA  to 
provide  the  helmsman  with  needed,  or  desired,  operational  information  and  the  ability  of  the 
helmsman’s  to  utilize  HRA  data  under  varied  sea  conditions  will  be  evaluated  through  post 
mission  analysis  of  the  operational  test  data.  Post  mission  analysis  will  also  be  utilized  to 
identify  sea  conditions,  the  craft’s  ability  to  maintain  speed  and  time  to  destination,  the 
impact  of  sea  roughness  on  craft  personnel,  and  the  overall  ability  of  the  HRA  to  provide  the 
helmsman  with  desired  operational  information. 

6.  The  development  of  a  finalized  HRA  design  will  be  accomplished  to  satisfy  the  requirements 
established  by  the  testing  and  evaluation  and  to  minimize  the  fabrication  cost  of  the  prototype 
and  production  units.  Delivery  of  a  pre-production  prototype  HRA  unit  in  accordance  with 
the  finalized  design  is  required. 


3.0  PHASE  I  DEVELOPMENT 
1  Pnrpnsp.  and  Scone  of  the  Research  Effort 

The  technical  objective  of  this  program  is  the  development  of  a  Helmsman  s  Recording 
Accelerometer  (HRA)  for  console  instrumentation  on  MSW  RIB  and  MK  V  SOC.  The  HRA  is 
to  provide  the  helmsman  with  real  time  quantitative  acceleration  data  and  to  record  craft 
acceleration  data  for  assistance  in  post-mission  analysis  and  improvement  of  rough  water 
operation.  The  HRA  is  to  be  capable  of  displaying  and  recording  selective  operational 
information  of  the  boat,  such  as  boat  attitude,  that  is  determined  within  the  Phase  I  program  as 
being  useful  and  within  practical  cost  limits  for  the  HRA.  The  program  effort  under  Phase  I 
included  the  assembly  of  a  prototype  HRA  developed  by  CTI  and  further  included  technical 
support  for  installation  of  the  HRA. 

The  acceleration  data  displayed  by  the  HRA  at  the  console  is  to  provide  the  helmsman  with  data 
that  assists  the  helmsman  in  choosing  speeds  and  headings  for  the  craft  and  allows  the  helmsman 
to  reduce  the  perceived  roughness  and  fatigue  placed  upon  the  passengers  and  hull  structure.  The 
data  recorded  by  the  HRA  is  provided  to  allow  post-mission  analysis  of  the  craft  mission  and 

operation. 

3.2  Results  of  Individual  Tasks 

The  technical  objectives  of  this  program  were  undertaken  in  the  form  of  a  multi-task  program  as 
outlined  in  the  proposal.  The  hardware  references  presented  in  the  Phase  I  proposal  and  the 
hardware  development  procedures  presented  in  the  task  descriptions  of  the  proposal  were  used  to 
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direct  the  development  of  the  HRA.  Final  hardware  selection  and  details  were  developed  in 
accordance  with  HRA  system  parameters  established  under  this  Phase  I  program.  The  Phase  I 
development  effort  of  this  program  is  described  further  under  the  individual  tasks  presented 
below. 

3.2.1  Task  1:  Review  Functional  Requirements 

The  functional  requirements  for  the  HRA  were  reviewed  by  CTI.  System  interface  requirements, 
operating  limits,  and  overall  user  requirements  were  identified  and  presented  for  review  by 
SOCOM.  The  identification  of  HRA  design  requirements  was  coordinated  by  CTI  with  SOCOM 
and  the  boat  manufacturer. 

The  effort  under  this  task  included  a  review  of  the  anticipated  operational  parameters  for  the 
HRA,  such  as  craft  operation,  mission  requirements  and  data  collection  requirements.  It  included 
a  review  of  the  system  parameters  affecting  the  selection  of  an  arrangement  for  displaying 
acceleration  information  to  the  helmsman.  It  included  a  review  of  the  operational  and 
environmental  factors  that  influence  structural  fatigue  and  the  corresponding  need  for  structural 
fatigue  monitoring.  Numerous  design  and  hardware  alternatives  for  data  collection,  data  storage, 
data  transfer  and  post-mission  analysis  were  reviewed  to  determine  hardware  requirements 
needed  for  an  optimal  HRA  system.  An  evaluation  of  the  requirements  for  collection,  recording, 
transferal,  analysis  and  use  of  the  acceleration  data  obtained  with  the  HRA  was  accomplished.  A 
review  of  literature  pertaining  to  human  fatigue  in  a  low  frequency  acceleration  or  vibration 
environment  such  as  that  encountered  with  small  craft  in  rough  sea  was  also  accomplished. 

Application  information  provided  by  SOCOM,  along  with  any  additional  information  available 
under  this  program,  was  utilized  in  determining  the  final  specifications  for  the  design  of  the 
HRA.  Information  was  provided  to  the  USSOCOM  RIB  Acquisition  Office  in  the  progress 
reports.  The  findings  of  this  task  were  discussed  with  SOCOM  and  utilized  in  the  development 
and  selection  of  the  final  design  arrangement  for  the  HRA. 

3.2.2  Task  2:  Establish  HRA  System  Requirements 

HRA  system  requirement  and  specifications  that  need  to  be  satisfied  by  the  embodiment  of  the 
HRA  design  were  identified  and  established  as  requirements  for  the  design.  The  system 
requirements  were  established  in  consultation  with  SOCOM.  Cost-benefit  trade-offs  of 
alternative  arrangements  were  evaluated  by  CTI  to  ensure  that  the  programmatic  goals  of 
USSOCOM  would  be  met. 

3.2.3  Task  3:  Finalize  Fabrication  and  Assembly  Details  of  the  HRA 

The  fabrication  and  assembly  details  for  fabrication  of  the  HRA  were  completed  under  this  task. 
The  development  of  the  HRA  was  accomplished  in  accordance  with  the  results  and  information 
established  by  Tasks  1,  2  and  3.  Specifications  were  identified  for  components  of  the  design. 
Electronic  circuit  board  layouts,  electronic  schematics,  assembly  sketches,  detail  drawings,  and 
related  design  specification  requirements  were  accomplished  as  needed  to  complete  the 


6 


fabrication  of  the  prototype  HRA.  Mechanical  details  of  the  customized  display  case  and 
assembly  hardware  were  drawn  in  AutoCad  (Autodesk,  Sausalito,  CA). 

3.2.4  Task  4:  HRA  Fabrication  and  Assembly 

An  HRA  prototype  unit  was  fabricated  under  this  Task.  A  description  of  the  fabricated  unit  is 
presented  below.  The  HRA  was  bench  tested  and  the  Data  Recovery  and  Display  subsystems 
were  tested  and  verified. 

3.2.5  Task  5:  HRA  Design  Verification  and  Calibration  Tests 

The  HRA  was  subjected  to  repeated  mechanical  shock  administered  by  impulse  and  monitored 
by  small,  lightweight  accelerometers  temporarily  mounted  on  the  components.  The  acceleration 
in  three  axes  had  a  peak  magnitude  of  at  least  lOg.  Low  frequency  vibration  of  the  HRA  was 
administered  by  electromechanical  translation.  The  electronic  calibration  of  the  HRA  was 
performed  by  a  digital  frequency  counter  for  the  real-time  clock  and  digital  voltmeter  for  the 
analog-to-digital  converter. 

3.2.6  Task  6:  Application  and  Installation  Support  for  the  HRA 

The  application  and  installation  of  the  HRA  in  the  field  is  guided  by  the  documentation  of  the 
HRA  provided  in  this  report.  This  includes  application  of  the  HRA  for  data  acquisition, 
retrieval,  processing,  and  display.  The  utilization  and  value  of  the  HRA  system  can  be  enhanced 
further  by  field-testing  and  by  selecting  and  organizing  the  collection  of  the  data  to  specific 
requirements  of  mission  analysis.  Data  recorded  by  the  HRA  can  be  used  to  support  craft  design 
decisions,  maintenance  activities  and  post-mission  analysis.  A  continuation  of  the  development 
of  the  HRA,  which  would  include  development  of  the  recommendations  provided  by  this  report, 
was  originally  scheduled  for  development  and  implementation  under  a  proposed  Phase  II  effort 
for  this  program.  Section  2.2  of  this  report  provides  recommendations  for  a  Phase  II  program  to 
enhance  the  utilization  and  application  of  the  HRA. 

Proper  mounting  of  the  HRA  on  the  boat  was  identified  in  this  task.  Technical  support  for  the 
installation  of  the  HRA  was  provided  by  visiting  the  boat  manufacturer,  inspecting  the  craft  for 
installation  requirements  and  taking  measurements  of  the  craft  to  fabricate  custom  lengths  of 
cable  for  installation  of  sensors  and  HRA  components.  The  installation  instructions  provided  in 
this  report  present  the  results  of  this  task. 

3.2.7  Task  7:  Preparation  of  Deliverables 

Interim  documentation,  in  the  form  of  monthly  letter  reports,  was  submitted  during  the  course  of 
the  project  to  summarize  the  status  and  progress  of  the  work  during  the  reporting  period.  This 
report  serves  as  the  final  report  and  includes  the  development  details  and  overall  results  of  the 
Phase  I  program. 
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4.0  PARAMETERS  AND  SPECIFICATIONS 

The  parameters  and  specifications  for  the  HRA  were  established  by  CTI  from  a  review  of  the 
physical  characteristics  of  the  MSW  RIB  and  MK  V  SOC,  the  operating  characteristics  of  the 
craft,  the  operational  environment,  the  helmsman’s  need  for  acceleration  data  and  the 
requirement  for  data  for  post-mission  analysis.  Requirements  presented  in  the  SBIR 
announcement,  craft  data  obtained  from  the  boat  manufacturer,  requirements  presented  by 
SOCOM  and  information  obtained  through  literature  review  serve  as  the  basis  for  establishing 
the  parameters  and  specifications  under  Tasks  1  and  2  of  this  project. 

Strain  instrumentation  and  strain  data  collection  for  the  statistical  analysis  of  structural  fatigue 
was  evaluated  by  CTT  in  cooperation  with  SOCOM  and  the  boat  manufacturer.  Inspection  of  the 
craft  at  the  manufacturer  indicated  that  the  craft  exhibited  very  high  strength  and  durability. 
Based  on  the  inspection,  and  with  the  craft  being  identified  as  exhibiting  both  high  strength  and 
durability,  the  recording  of  stress-strain  loading  for  structural  fatigue  analysis  was  determined  to 
be  unnecessary  for  the  MSW  RIB  and  MK  V  SOC.  The  mission  data  recorded  by  the  HRA 
concerning  craft  operation  and  vertical  acceleration  of  the  craft  was  selected  as  sufficient  for  long 
term  analysis  of  the  hull  accelerations,  hull  structure  loading  and  hull  structure  fatigue. 

The  parameters  and  specifications  that  have  been  established  for  the  development  of  the  HRA 
and  for  the  components  of  the  HRA  are  presented  below. 

4.1  Helmsman  Recording  Accelerometer  (HRAl 

The  HRA  system  is  to  provide  the  helmsman  with  real  time  quantitative  acceleration  data  of  the 
MSW  RIB  and  MK  V  SOC  during  mission  operation.  The  HRA  is  to  have  a  display  that  can  be 
mounted  on  the  helmsman’s  console  and  provide  for  visual  observation  of  displayed  infomiation 
by  the  helmsman.  The  HRA  is  to  record  and  store  acceleration  data  during  mission  operation  in 
a  non-volatile  internal  memory  and,  upon  command,  provide  for  the  transferal  of  the  stored  data 
to  a  transportable  data  storage  unit.  The  transportable  data  storage  unit  is  to  provide  a  means  of 
storing  and  allowing  for  the  transferal  of  data  for  post-mission  analysis.  The  HRA  is  to  operate 
from  the  available  on-board  power  of  +24  VDC.  Vertical  acceleration  of  the  craft  is  estimated  at 
2.5g  average  and  5g  maximum. 

Figure  1  shows  the  specification  for  the  general  arrangement  of  the  HRA.  A  complete  HRA 
system  must  include  the  following  components: 

•  Data  Acquisition  Component 

•  Console  Display  Component 

•  Operators  Input  Component 

•  Data  Transfer  Adapter 

•  Acceleration  Sensors 

•  Inclinometer  and  Electric  Compass  Component 
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Cables  and  Connectors 


The  HRA  must  be  compatible  with  and  allow  operation  with  system  components  as  follows: 

•  Transportable  Data  Storage  Unit 

•  Post-mission  Analysis  Computer 

•  Auxiliary  Boat  Instrumentation  Data 

4.2  Data  Acquisition  Component 

The  data  acquisition  component  is  required  to  collect,  process,  record  and  make-available  data 
useful  for  operation  of  the  boat  by  the  helmsman  and  for  post-mission  analysis  of  craft  operation 
and  mission.  The  data  acquisition  component  must  be  packaged  and  sealed  for  continuos 
operation  in  a  marine  environment. 

Sixteen  analog  input  channels,  two  high-speed  serial  communication  data  ports,  a  bidirectional 
parallel  data  port,  and  a  four-bit  binary  data  port  are  required  for  the  data  acquisition  component. 
Twelve  of  the  available  sixteen  analog  channels  are  to  be  available  to  interface  the 
accelerometers,  electronic  compass,  and  inclinometers  to  the  HRA.  One  of  the  serial  data  ports 
is  to  provide  access  for  the  data  transfer  function.  The  remaining  serial  data  port  is  available  to 
interface  to  the  National  Marine  Electronics  Association  (NMEA)  standard  GPS  receiver  (Furuno 
1600F)  and  marine  radar  (Furuno  841)  if  deemed  a  requirement  under  a  Phase  II  assessment  to 
record  such  data  for  post-mission  analysis. 

The  four  remaining  analog  channels  and  the  binary  data  port  are  required  to  allow  interfacing  of 
the  mechanical  trim  tab  and  the  engine  (Caterpillar  3126)  boost  pressure  and  tachometer  if 
recording  such  data  for  post-mission  analysis  is  deemed  a  requirement  under  a  Phase  II 
assessment. 

Within  the  data  acquisition  component,  the  data  processing  subassembly  is  required  to  provide 
analog-to-digital  signal  conversion,  digital  filtering,  and  subsequent  data  compression  and 
storage  for  each  available  sensor.  The  processing  system  is  required  to  continuously  interrogate 
the  sensors  and  storage  device,  providing  feedback  and  providing  control  of  the  entire  data 
acquisition,  data  display  and  data  storage  processes.  Additionally,  the  processing  system  must 
continuously  update  the  console  display  with  current  sensor/system  output.  Finally,  the 
processing  unit  is  required  to  enable  handshaking  between  the  HRA  and  the  external  post¬ 
mission  analysis  computer  through  the  data  transfer  connection  port. 

The  data  acquisition  component  is  required  to  have  external  cable  connectors  for  the  connection 
of  the  remote  components  of  the  HRA  system.  The  external  cable  connectors  must  be  waterproof 
connections.  Connectors  are  required  to  allow  connection  of  a  24VDC  power,  to  allow 
connection  of  remote  sensors,  to  allow  connection  of  the  console  display  component,  to  allow 
connection  of  the  operator’s  input  component,  and  to  allow  connection  of  a  data  transfer  unit  or 
small  computer  for  post-mission  transferal  of  collected  data. 
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4.3  Console  Display  Component 

Visual  display  of  HRA  data  to  the  helmsman  requires  a  console  display  component.  The  console 
display  component,  furnished  with  the  first  HRA  unit,  is  to  be  a  commercially  available, 
sunlight-readable,  liquid  crystal  display  (LCD).  The  LCD  must  be  mounted  in  an  enclosure  to 
provide  vibration  and  weather  protection.  This  display  component  must  be  fabricated  as  a  stand¬ 
alone  component.  The  stand-alone  enclosure  for  the  display  must  allow  a  non-permanent 
installation  on  the  console  without  requiring  significant  modification  of  the  console  to  mount  the 
HRA  display  component.  With  this  stand-alone  arrangement,  the  display  assembly  is  to  be  tried 
at  various  positions  on  the  console  before  establishing  a  final,  or  optimal,  installation  site. 

The  console  display  component  is  required  to  be  a  programmable  display  and  allow  for  the 
reprogramming  and  evaluation  of  various  display  formats  as  a  means  of  identifying  an  optimal 
display  format  under  a  Phase  II  operational  testing  program.  The  optimal  format  must  be 
developed  and  selected  in  Phase  II  based  on  the  boat  operator’s  satisfaction  with  specific  display 
alternatives  and  based  on  operational  testing  of  the  boat  with  alternative  display  formats.  The 
display  formats,  or  modes  of  operation,  for  the  initial  programming  of  the  display  is  to  include  a 
power-on  display  format  and  preprogrammed  display  alternatives  which  can  be  selected  by  the 
helmsman  as  an  alternative  to  the  power-on  display.  The  console  display  component  furnished 
under  Phase  I  of  this  program  is  to  be  programmed  to  provide  an  initial  power-on  display  format 
and  helmsman  selected  alternative  formats  as  described  below. 

Pre-programmed  display  formats  are  to  be  provided  by  CTI  for  selection  by  the  helmsman.  The 
programmable  display  must  allow  for  reprogramming  of  these  operator-selected  displays.  The 
programmable  display,  in  combination  with  the  operators  input  panel  described  below,  is  to 
allow  for  the  selection,  testing  and  reprogramming  of  various  display  formats.  An  optimal 
format  is  to  be  based  on  the  boat  operator’s  satisfaction  with  specific  display  alternatives  and 
based  on  operational  testing  of  the  boat  with  alternative  display  formats.  The  optimal  format  is 
expected  to  be  developed  and/or  selected  under  a  proposed  Phase  II  development  program. 

•  Continuous  “Power-On”  Displav:  The  HRA  is  required  to  be  programmed  to  always  present 
the  power-on  display  format  whenever  the  HRA  is  powered  and  provided  the  helmsman  has 
not  selected  an  alternative  display.  For  easy  recognition  of  display  information  by  the 
helmsman,  the  power-on  display  format  must  provide  simple  bar  graphs  of  real  time  vertical 
acceleration  for  both  the  Helmsman’s  location  on  the  boat  and  the  rear  passenger  location. 
The  orientation  of  vertical  acceleration  is  defined  as  the  acceleration  of  the  boat 
perpendicular  to  the  deck. 

•  “Azimuth/Hpaflinp”  Display:  The  helmsman’s  selection  of  this  display  format  is  required  to 
initiate  a  display  of  the  inclinometer  and  the  electric  compass  data  for  the  operator  s 
reference  and  for  system  performance  verification  of  the  mission  information  being  recorded 
by  the  HRA. 
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•  “Scale”  Display:  The  helmsman’s  selection  of  this  display  format  is  required  to  initiate  a 
change  in  the  real-time  acceleration  display  gain  and  thereby  provide  the  helmsman  with  the 
ability  to  expand  or  retract  the  scale  of  the  displayed  acceleration  in  response  to  various 
operating  conditions. 

•  “System”  Display:  The  helmsman’s  selection  of  this  display  format  is  required  to  evoke  a 
second  function  menu  with  “Start  Recording”  and  “Start  Data  Transfer”  for  data  acquisition 
during  mission  operation  and  post-mission  data  transfer. 

4.4  Operator’s  Input  Panel  Component 

The  operator’s  input  panel  is  to  consist  of  four,  fully  sealed,  flush-mounted,  shock  rated,  manual 
switches.  The  functions  of  these  switches  are  to  be  programmable.  The  programmable 
parameter  is  to  allow  for  the  testing  of  the  switch  functions  as  originally  provided  and  to  allow 
system  reprogramming  if  desired.  If  reprogramming  is  determined  to  be  needed  or  desirable  by 
the  boat  operator  in  the  Phase  II  testing  program,  the  programmable  feature  of  the  input  panel 
will  allow  for  appropriate  reprogramming  of  the  switch  function.  The  programming  for  the 
switches,  and  the  legend  provided  for  the  switches,  as  initially  provided,  is  to  provide  for 
helmsman  selection  of  “Azimuth/Heading”,  “Scale”,  and  “System”  display  format. 

The  programming  of  the  switches  is  to  allow  operator  selection  of  the  various  display  formats 
during  boat  operation.  When  depressed,  the  selected  display  mode  will  remain  active  for  a  pre¬ 
selected  period  of  time,  after  which  the  display  will  return  to  the  standard  operating  mode. 

4.5  Data  Transfer  Adapter 

A  data  transfer  adapter  must  be  provided  to  allow  high-speed  transfer  of  processed  acceleration 
and  other  operational  data  to  a  transportable  data  storage  unit.  The  data  transfer  adapter  is 
required  to  provide  environmental  protection  for  the  electrical  transmission  of  data  and  to 
provide  easy  access  for  the  connection  and  transferal  of  data  to  the  transportable  data  storage 
unit. 

4.6  Acceleration  Sensors 

The  HRA  system  requires  three  triaxial  linear  accelerometers.  Each  linear  accelerometer  axis  is 
required  to  provide  a  range  of  0  to  25g.  Each  triaxial  accelerometer  assembly  must  be  separately 
packaged  within  a  waterproof  enclosure.  Each  accelerometer  package  must  have  an  external 
waterproof  cable  connector  to  allow  cable  connection  with  the  data  acquisition  component.  The 
intended  locations  for  mounting  the  accelerometers  are  the  center  of  the  boat  at  the  helmsman 
location,  at  the  right  rear  passenger  location  and  at  the  left  rear  passenger  location.  The  triaxial 
accelerometers  are  required  to  be  properly  oriented  with  the  deck  of  the  craft  in  order  to 
accurately  sense  vertical  and  sway  acceleration  of  the  craft. 
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4.7  Inclinometer  and  Electric  Compass  Component 

A  two-axis  (pitch  and  roll)  inclinometer  and  electric  compass  component  are  required  by  the 
HRA  system.  The  inclinometer  is  required  to  provide  ±  50°  minimum  dynamic  range  of 
measurement  of  pitch  and  roll.  The  inclinometer  and  electric  compass  assembly  must  be 
packaged  within  a  waterproof  enclosure.  The  inclinometer  and  electric  compass  component  must 
have  an  external  waterproof  cable  connector  to  allow  cable  connection  with  the  data  acquisition 
component.  The  axes  of  the  inclinometer  and  compass  are  to  be  properly  oriented  with  the  deck 
and  centerline  of  the  craft  to  accurately  sense  the  orientation  of  the  craft. 

4.8  Cables  and  Connectors 

Electrical  cables  and  connectors  are  to  be  provided  for  installation  of  the  HRA  components 
furnished  by  this  Phase  I  program.  The  cable  and  connectors  must  provide  ease  of  installation 
and  environmental  protection  for  the  electrical  transmission  of  power  and  signals. 

4.9  Transportable  Data  Storage  Unit 

A  transportable  data  storage  unit  is  required  to  collect  the  processed  data  from  the  HRA  data 
acquisition  component  mounted  on  the  boat.  A  small  computer  or  an  external  embedded 
microcomputer  can  be  used  for  this  function.  The  HRA  unit  must  be  programmed  such  that  a 
commercially  available  portable  computer  can  be  used  as  the  transportable  data  storage  unit. 
This  portable  computer  is  not  provided  as  a  deliverable  component  of  the  HRA. 

4.10  Post-mission  Analysis  Computer 

The  processed  data  provided  by  the  HRA  is  required  to  be  compatible  with  and  allow  post 
mission  analysis  and  reprocessing  of  data  with  a  commercially  available  computer.  The  computer 
is  not  provided  as  a  deliverable  component  of  the  HRA.  Computer  programs  and  systems  for 
post-mission  analysis  are  expected  to  be  developed  under  a  proposed  Phase  II  program. 

4.11  Auxiliary  Boat  Instrumentation  Data 

Auxiliary  boat  instrumentation  data  is  that  data  which  is  obtained  from  instrumentation,  or 
sensors,  mounted  on  the  boat  by  the  boat  manufacturer  and  providing  useful  data  for  post¬ 
mission  analysis  on  the  operation  of  the  boat.  Auxiliary  boat  instrumentation  data  identified  to 
date  as  being  useful  for  post-mission  analysis  include  GPS  output,  engine  boost  pressure,  and 
trim  position.  This  data  need  not  be  displayed.  Auxiliary  boat  instrumentation  is  not  provided  as 
deliverable  components  of  the  HRA.  The  data  acquisition  component  must  provide  connectors, 
processing  and  recording  capability  to  allow  for  the  recording  of  a  limited  amount  of  data 
provided  by  auxiliary  boat  instrumentation.  Technical  support  is  to  be  provided  for  coupling  the 
auxiliary  boat  instrumentation  with  the  HRA  system. 
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5.0  HRA  TEST  UNIT  DESCRIPTION 


The  Helmsman  Recording  Accelerometer  (HRA),  pictured  in  Figure  2,  developed  and  fabricated 
under  this  Phase  I  program  includes  the  following: 

•  Data  Acquisition  Component 

•  Console  Display  and  Operators  Input  Component 

•  Data  Transfer  and  Display  Connector  Assembly 

•  Triaxial  Accelerometer  Components 

•  Inclinometer  and  Electronic  Compass  Component 

•  Cables  and  Connectors 

The  HRA  developed  and  fabricated  under  this  Phase  I  program  is  compatible  with  and  allows 
operation  with  HRA  system  components  as  follows: 

•  Portable  Computer  for  Data  Collection  and  Post-mission  Analysis 

•  Auxiliary  Boat  Instrumentation  Data 

5.1  Data  Acquisition  Component 

The  Data  Acquisition  Component  furnished  under  this  Phase  I  program  consists  of  an  embedded 
microprocessor-based  computer  to  collect,  process,  record  and  make-available  data  useful  for 
operation  of  the  boat  by  the  helmsman  and  for  post-mission  analysis.  The  microprocessor-based 
computer  is  assembled  within  a  custom  fabricated  enclosure  that  is  designed  to  minimize  the 
affect  of  shock  and  vibration  on  the  computer  assembly.  The  enclosure  is  an  environmentally 
sealed  aluminum  instrumentation  case.  The  internal  computer  and  data  storage  memory  are 
wired  within  the  sealed  enclosure.  Connection  to  external  sensors  and  power  is  accomplished 
through  positive  locking,  environmentally  sealed  connector  jacks  located  on  the  face  of  the 
enclosure  as  shown  in  Figure  3.  A  view  of  the  data  acquisition  and  processing  electronics  within 
the  enclosure  of  the  Data  Acquisition  Component  is  shown  in  Figure  4. 

The  embedded  microprocessor-based  computer  of  the  processing  unit  utilizes  an  AMD  486DX, 
100  Mhz  clock,  microprocessor  with  4  MB  of  system  RAM,  a  high  baud  rate,  RS-232C  serial 
communication  port,  and  a  PC/104  expansion  bus  (WinSystems,  SAT-DX4-100).  The  12 
channel  analog  sensor  suite  is  interfaced  to  two  12  bit,  8  channel,  differential  input,  analog-to- 
digital  converter  peripherals  on  the  PC/104  expansion  bus  (WinSystems,  PCM- A/D  12).  Non¬ 
volatile  memory  storage  is  provided  by  a  32  MB  (unformatted)  flash  disk  memory  PC/104 
expansion  bus  peripheral,  which  requires  no  battery  backup  (WinSystems,  PCM-FLASH).  The 
flash  memory  module  specifically  features  an  extended  temperature  range  (-40'’C  to  ^-SS^C) 
which  will  facilitate  data  retention  under  adverse  conditions.  A  custom  digital  electronic  module 
interfaces  the  computer  to  the  console  display  and  also  provides  a  crystal  controlled,  real-time 
clock  for  data  sampling.  The  module  is  connected  to  the  24  bit  parallel  bidirectional  digital  data 
port  of  the  computer. 
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A  high  resolution  video  graphics  adapter  (WinSy stems,  PCM-FPVGA),  although  not  required  for 
the  vertical  acceleration  display  and  recording  functions  of  the  HRA,  is  resident  as  a  PC/104 
expansion  bus  to  facilitate  a  remote  session  and  data  file  transfers  with  an  external  (l^Ptop) 
computer  system  using  a  standard  communication  application  (Symantec,  pcANYWHERE). 

The  data  acquisition  component  operates  on  +24  VDC  at  0.55  A  and  utilizes  two  DC  to  DC 
converters  to  provide  +5V  and  ±12  VDC.  Connectors  for  power  input,  serial  data 
communication,  the  sensors,  and  display  are  mounted  as  shown  in  Figure  3. 


5.2  Console  Display  and  Operator’s  Input  Component 

The  Console  Display  and  Operator’s  Input  Component  furnished  under  this  Phase  I  program 
consists  of  a  sunlight-readable  liquid  crystal  display  (LCD)  and  environmentally  sealed  operator 
input  switches  assembled  into  a  single  watertight  enclosure.  The  enclosure  is  a  custom 
fabricated,  environmentally  sealed  aluminum  case  that  minimizes  the  affect  of  shock  and 
vibration.  Connection  of  the  console  display  and  operator’s  input  component  to  the  data 
acquisition  component  is  accomplished  through  a  25  conductor  cable  which  terminates  with  a 
positive  locking,  environmentally  sealed  connector  plug.  The  LCD,  pushbuttons,  and  associated 
power  converters  and  connectors  are  wired  within  the  sealed  enclosure.  The  console  display  and 
operator’s  input  component,  with  cable  and  connector,  is  shown  in  Figure  5. 

The  console  display  is  an  electroluminescent  4.7  by  2.5  inch  LCD  (AND,  1741MST) 
programmable  display.  The  display  operates  on  +24  VDC  at  0.25  A  and  utilizes  a  DC  to  DC 
converter  to  provide  +5  VDC  and  a  DC  to  high  voltage  AC  inverter  (Endicott  Research,  El  11 8) 
for  the  electrolunminescent  panel.  The  LCD  viewing  contrast  is  digitally  adjustable  under 
application  software  control  and  the  variable,  negative  DC  voltage  is  provided  by  an  integrated 
circuit  (Maxim,  MAX749). 

The  console  display  and  operator’s  input  component  has  four  environmentally  sealed  push¬ 
buttons  (MGR,  1111)  mounted  on  the  face  of  the  component  for  operator’s  input.  Operational 
modes  and  operator’s  selection  of  display  format  is  in  accordance  with  the  parameters  and 
specifications  presented  in  section  4.0  above.  The  display  is  programmable  to  allow  development 
of  display  data  and  procedures  as  determined  by  the  proposed  Phase  II  program. 

5.3  Data  Transfer  and  Display  Connector  Assembly 

The  Data  Transfer  and  Display  Connector  Assembly  furnished  under  this  Phase  I  program 
consists  of  two  positive  locking,  environmentally  sealed  connector  jacks  mounted  on  a  bulkhead 
plate  and  a  26  pin  and  10  pin  cable  and  connector  as  shown  in  Figure  6.  The  two  cables  are 
connected  to  the  Data  Acquisition  Component.  The  cable  from  the  Console  Display  and 
Operator’s  Input  Component  is  connected  to  the  26  pin  connector  jack.  The  10  pin  connector 
jacks  is  the  Data  Transfer  port  to  retrieve  stored  data  from  the  HRA. 
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5.4  Triaxial  Accelerometer  Component 


Three  identical  triaxial  accelerometer  components  are  furnished  under  this  Phase  I  program. 
Each  of  the  components  consists  of  a  micromachined  triaxial  accelerometer  (Crossbow, 
CXL25M3)  mounted  in  an  enviromentally  sealed,  aluminum  case  (Hammond,  1590AF).  The 
triaxial  accelerometers  operate  on  +24  VDC  at  0.015  A  and  utilize  a  DC  to  DC  converter  to 
provide  +5  VDC.  The  accelerometers  have  a  full  scale  span  of  +  25  G  in  each  axis.  Ten  (10) 
pin,  positive  locking,  environmentally  sealed  connector  jacks  are  located  on  the  face  of  the 
enclosure  to  provide  for  cable  connection  to  the  data  acquisition  component.  The  triaxial 
accelerometer  components  furnished  under  this  Phase  I  program  are  shown  in  Figure  7.  There  are 
three  such  triaxial  accelerometers,  one  is  to  be  mounted  below  deck  at  the  helmsman  position  and 
two  mounted  below  deck,  aft  starboard  and  aft  port. 


5.5  Inclinometer  and  Electronic  Compass  Component 

The  Inclinometer  and  Electronic  Compass  Component  furnished  under  this  Phase  I  program 
consists  of  a  two  axis  tilt  sensor  and  a  triaxial  magneto-inductive  magnetometer  with  an  integral, 
compensating  two  axis  tilt  sensor.  A  triaxial  magneto-inductive  magnetometer  with  an  integral 
two  axis  tilt  sensor  provides  an  analog  voltage  proportional  to  the  compass  direction  (Precision 
Navigation,  TCM2).  Another  wide  dynamic  range  (+  60°),  two  axis  tilt  sensor  provides  an 
analog  voltages  proportional  to  pitch  and  roll  (Fredericks,  0717).  The  sensor  suite  operates  on 
+24  VDC  at  0.060  A  and  uses  two  DC  to  DC  converters  to  provide  +5  V  and  +12  VDC.  The 
sensor  suite  is  housed  in  a  high  impact,  non-metallic  (ABS  plastic)  case  (Hammond,  1594CW). 
A  (10)  ten  pin,  positive  locking,  environmentally  sealed  connector  jack  is  located  on  the  face  of 
the  enclosure  to  provide  for  cable  connection  to  the  data  acquisition  component.  The 
inclinometer  and  electronic  compass  component  furnished  under  this  Phase  I  program  is  shown 
in  Figure  8. 

5.6  Cables  and  Connectors 

The  Cables  and  Connectors  furnished  under  this  Phase  I  program  consist  of  positive  locking, 
environmentally  sealed  connector  plug  and  jacks  and  shielded,  instrumentation  grade  (number  22 
wire)  cable. 


5.7  Auxiliary  Boat  Instrumentation  Data 

Auxiliary  boat  instrumentation  data  is  that  data  which  is  obtained  from  instrumentation,  or 
sensors,  mounted  on  the  boat  by  the  boat  manufacturer  and  providing  useful  data  for  post¬ 
mission  analysis  on  the  operation  of  the  boat.  The  Data  Acquisition  Component,  fabricated  under 
this  Phase  I  program,  has  connectors  and  data  processing  capacity  for  collection  of  a  limited 
amount  of  auxiliary  boat  instrumentation  data  as  follows; 

•  Analog  channel  13  is  available  for  the  collection  of  mechanical  trim  tab  position  data. 
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•  Analog  channel  14  is  available  for  collection  of  engine  (Caterpillar  3126)  boost  pressure  data. 

•  Analog  channel  15  is  available  for  collection  of  engine  tachometer  output. 

•  Serial  port  COM2.  This  serial  data  port  is  available  to  interface  to  the  National  Marine 
Electronics  Association  (NMEA)  standard  GPS  receiver  (Furuno  1600F)  and  marine  radar 
(Furuno  841). 


Signal  conditioning  and  data  processing  procedures  for  the  collection  of  the  auxiliary  boat 
instrumentation  data  is  included  in  the  proposed  Phase  II  program  for  the  development  and 
assessment  of  data  to  be  recorded  for  post-mission  analysis. 


5.8  Portable  Comt?uter 

A  portable  computer  is  recommended  for  use  as  a  transportable  data  storage  unit  and  for  post¬ 
mission  analysis  of  data.  The  HRA  unit  furnished  under  this  Phase  I  program  has  a  high-speed 
serial  port  and  a  data  transfer  sequence  to  allow  transfer  of  the  HRA  recorded  data  to  a  portable 
computer. 


6.0  INSTALLATION  INSTRUCTIONS 

The  installation  of  the  HRA  system  on  either  the  MSW  RIB  or  MK  V  SOC  requires  the 
installation  of  each  component  of  the  HRA  at  the  designated  location  for  that  component.  A 
recommended  component,  sensor,  and  cabling  layout  is  presented  in  Figure  9.  Sensing 
components  must  be  positioned,  oriented  and  fastened  into  position  on  the  boat  such  that 
resultant  data  is  properly  correlated  to  known  locations  of  the  craft.  After  fastening  each 
component  in  its  specified  location,  the  components,  must  be  connected  to  the  data  acquisition 
component  with  the  cables  that  are  provided.  The  individual  components  of  the  HRA  to  be 
installed  onto  the  craft  consist  of  the  following: 

1.  Data  Acquisition  Component:  The  Data  Acquisition  Component,  shown  in  Figure  3, 
is  a  sealed  enclosure  approximately  12  x  8  x  8  inches  (30.5  x  20.3  x20.3  cm)  and 
weighs  14  lbs  (30.80  kg).  This  component  contains  the  data  acquisition  and  data 
processing  computer  and  is  expected  to  be  mounted  in  the  sub-console  equipment 
area  in  any  orientation.  The  component  is  required  to  be  installed  with  sufficient 
clearance  to  allow  access  to  the  ten  connector  jacks  on  the  upper  face  of  the  enclosure. 
This  is  necessary  to  provide  clearance  to  connect  the  various  sensors  and  HRA  system 
components. 

2.  Console  Display  and  Operator  Input  Component:  The  Console  Display  and  Operators 
Input  Component,  shown  in  Figure  5,  is  a  sealed  enclosure  approximately  8.5  x  4.75  x 
2.5  inches  (3.35  x  1.87  x  0.98  cm)  and  weighs  5  lbs  (11kg).  This  component  contains 
the  display  panel  and  the  operator  input  switches.  The  component  has  a  26  conductor 
cable,  eight  feet  long,  that  is  easily  connected,  or  disconnected,  at  the  26  pin  console- 


16 


display  bulkhead  connector  jack  installed  on  the  helmsman’s  console  and  as  shown  in 
Figure  6.  This  allows  easy  removal  of  this  component  when  not  in  use.  The 
component  can  be  mounted  to  the  helmsman’s  console  at  any  preferred  location 
utilizing  the  four  QA-IQxVa”)  tapped  holes  on  the  back  of  the  enclosure. 

3,  r>flta  Transfer  and  Display  Connector  Assembly:  The  Data  Transfer  and  Display 
Connector  Assembly,  shown  in  Figure  6,  contains  a  10  pin  connector  jack  with  eight 
feet  of  electrical  cable  and  a  26  pin  connector  jack  with  eight  feet  of  cable.  The  two 
cables,  one  terminating  with  a  10  pin  connector  and  one  with  a  26  pin  connector,  must 
be  connected  to  the  Data  Acquisition  Component.  The  10  pin  and  26  pin  connector 
assembly  is  to  be  mounted  at  any  convenient  location  on  the  console  of  the  boat.  This 
provides  a  data  transfer  connector  and  a  display  connector  at  the  helmsman’s  console. 
It  provides  easy  access  for  data  transfer  and  connection  of  the  display  component  at 
the  console. 

4.  Triaxial  Accelerometer  Components  (3  Unitsl:  The  triaxial  accelerometer  components 
furnished  under  this  program  are  environmentally  sealed  units.  The  units  are  each  4.5 
by  2.25  by  1.25  inches  (11.4  by  5.7  by  51.6  cm)  and  weigh  0.5  lb.  (1.1  kg).  The  units 
have  a  (10)  ten  pin  connector  on  the  top  surface  as  shown  in  Figure  7.  The  three  units 
are  to  be  mounted  within  the  craft  at  three  separate  locations.  The  location  and 
orientation  of  each  triaxial  accelerometer  component  are  as  follows: 

•  Helmsman’s  Triaxial  Accelerometer:  This  accelerometer  is  to  be  mounted  under 
the  floor  at  the  helmsman’s  location  as  shown  in  Figure  9.  The  accelerometer 
must  be  mounted  with  the  X-Y  plane  parallel  to  the  deck.  The  X-axis  must 
parallel  the  bow-stem  centerline  and  point  towards  the  bow.  The  Y-axis  must  lie 
pointed  towards  the  port  side.  After  installation,  the  triaxial  accelerometer 
component  must  be  connected  to  the  Data  Acquisition  component  with  one  of  the 
18  feet  long,  10  conductor,  cables  furnished  with  the  HRA. 

•  Aft-port  Triaxial  Accelerometer:  This  accelerometer  is  to  be  mounted  at  the  aft- 
port  location  shown  in  Figure  9.  The  accelerometer  must  be  mounted  with  the  X- 
Y  plane  parallel  to  the  deck.  The  X-axis  must  parallel  the  bow-stem  centerline 
and  point  towards  the  bow.  The  Y-axis  must  lie  pointed  towards  the  port  side. 
After  installation,  the  triaxial  accelerometer  component  must  be  connected  to  the 
Data  Acquisition  component  with  one  of  the  35  feet  long,  10  conductor,  cables 
furnished  with  the  HRA. 

•  Aft-starboard  Triaxial  Accelerometer:  This  accelerometer  is  to  be  mounted  at  the 
aft-starboard  location  shown  in  Figure  9.  The  accelerometer  must  be  mounted 
with  the  X-Y  plane  parallel  to  the  deck.  The  X-axis  must  parallel  the  bow-stem 
centerline  and  point  towards  the  bow.  The  Y-axis  must  lie  pointed  towards  the 
port  side.  After  installation,  the  triaxial  accelerometer  component  must  be 
connected  to  the  Data  Acquisition  component  with  one  of  the  35  feet  long,  10 
conductor,  cables  furnished  with  the  HRA. 
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5.  Inclinometer  and  Electric  Compass  Component:  The  Inclinometer  and  Electronic 
Compass  Component,  shown  in  Figure  8,  is  housed  in  an  environmentally  sealed 
ABS  plastic  case  that  is  5  by  2.5  by  2.25  inches  (12.7  by  6.4  by  5.7  cm)  not  including 
the  integral  connector  jack  on  the  (short)  side  and  weighs  0.7  lb  (1.5  kg).  The  unit  has 
a  (10)  ten  pin  connector.  The  unit  must  be  mounted  with  the  X-Y  plane  parallel  to  the 
deck.  The  X-axis  must  parallel  the  bow-stem  centerline  and  point  towards  the  bow. 
The  Y-axis  must  lie  pointed  towards  the  port  side.  The  unit  must  be  mounted  in  the 
subconsole  area  as  specified  in  Figure  9.  After  installation,  the  component  must  be 
connected  to  the  Data  Acquisition  component  with  the  12  foot  long,  10  conductor 
cable  furnished  with  the  HRA. 

6.  Connectors  and  Cable  Installation:  The  connectors  and  cables  furnished  under  this 
Phase  I  program  are  presented  in  Table  1.  All  connectors  must  be  securely  locked  to 
ensure  their  environmental  seal.  Figure  10  presents  the  available  connectors 
associated  with  their  respective  HRA  components.  The  cables  should  be  mn  within 
conduits,  either  existing  or  new,  below  the  deck  without  interfering  with  any  other 
systems.  The  +24  VDC  supply  cable  is  not  provided  under  this  Phase  I  program, 
therefore  it  must  be  supplied  by  the  boat  manufacturer. 
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Table  1.  Connector/Cable  Specifications 


Connector 

Type 

#  of  Pins 

Description 

J1 

Circular  Bendix 

26 

Display  Control  at  Data  Acquisition 
Component 

J2 

Circular  Bendix 

26 

Display  Control  at  Bulkhead  Connector 

J3 

Circular  Bendix 

10 

Aft-Port  Side  Accelerometer 

J4 

Circular  Bendix 

10 

Aft-Starboard  Side  Accelerometer 

J5 

Circular  Bendix 

10 

Helmsman  Accelerometer 

J6 

Circular  Bendix 

10 

Helmsman  Accel,  at  Data  Acquisition 
Component 

J7 

Circular  Bendix 

10 

Aft-Starboard  Accel,  at  Data  Acquisition 
Component 

J8 

Circular  Bendix 

10 

Aft-Port  Accel,  at  Data  Acquisition 

Component 

J9 

Circular  Bendix 

10 

Compass/Horizon  at  Data  Acquisition 
Component 

JIO 

Circular  Bendix 

10 

Electronic  Compass/Horizon  Sensor 

Jll 

Circular  Bendix 

4 

Ship  Power  Connection  at  Data  Acquisition 
Component 

J12 

Circular  Bendix 

26 

Parallel  Input/Output  at  Data  Acquisition 
Component 

J13 

Circular  Bendix 

10 

Serial  Input/Output  at  Data  Acquisition 
Component 

J14 

Circular  Bendix 

10 

Serial  Input/Output  at  Bulkhead  Connector 

J15 

Circular  Bendix 

6 

Spare  Connector 

J16 

Circular  Bendix 

10 

Spare  Connector 

Furnished 

Cable 

From 

Connector 

To  Connector 

Available 

Length 

(feet) 

Notes 

Cl 

J1 

J2 

12 

C2 

J2 

Display 

8 

Hardwired  at  Display 

C3 

J9 

JIO 

12 

C4 

J8 

J3 

30 

C5 

J7 

J4 

C6 

J6 

J5 

15 

C7 

J13 

J14 

12 
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7.0  OPERATING  INSTRUCTIONS 


The  application  software  is  written  in  Microsoft  C  v5.1  and  Microsoft  MASM  v5.0  as  a  real¬ 
time,  embedded  program  that  executes  in  real  mode  on  an  Intel  486DX-100  microprocessor.  A 
user  interface  is  provided  by  the  display  and  four  environmentally  sealed,  momentary  contact, 
pushbuttons.  The  functions  of  the  pushbuttons  are  indicated  by  a  programmable  menu  on  the 
display  immediately  adjacent  and  to  the  left  of  the  pushbuttons. 

The  display  initially  shows  two  vertical  bar  graphs  (see  Figure  11)  which  are  the  aft  and  helm 
absolute  (unsigned)  vertical  peak  instantaneous  accelerations  with  an  initial  scale  of  5g.  The 
scale  can  be  toggled  between  5g  and  lOg  full  scale.  The  aft  acceleration  displayed  is  the 
maximum  of  either  the  aft  port  or  aft  starboard  vertical  accelerations.  The  two  triangular  marks 
next  to  each  of  the  vertical  bars  will  show  the  moving  average  of  the  peak  aft  and  helm 
acceleration.  The  moving  average  interval  is  system  (not  user)  programmable  and  initially  set  to 
4  seconds.  The  display  also  shows  RECORD  OFF,  indicating  that  the  three  triaxial 
accelerations,  compass,  pitch  and  roll  data  are  not  being  recorded. 

The  first  pushbutton  on  the  initial  menu  bar  is  AZM/HD  (azimuth/heading),  which  will  change 
the  display  to  one  which  shows  the  pitch  and  roll  of  the  vessel,  the  electronic  compass  heading 
and  a  second  menu  (see  Figure  12).  The  second  pushbutton  is  SCALE,  which  changes  the  gain 
of  the  acceleration  vertical  bar  graph.  Although  any  gain  can  be  programmed,  SCALE  toggles 
the  display  between  5g  and  lOg  full  scale.  The  third  pushbutton  is  unused  and  displays  a  blank. 
The  fourth  pushbutton,  labeled  SYSTEM,  clears  the  display  and  presents  another  menu  (see 
Figure  13). 

If  AZM/HD  is  pushed,  the  display  changes  to  that  shown  in  Figure  12.  The  artificial  horizon 
indicator  (pitch  and  roll)  is  shown  on  the  left  and  the  compass  on  the  right.  These  auxiliary 
transit  measurements  are  recorded  and  used  in  the  post-mission  analysis  of  the  performance  of 
the  helmsman.  The  first  pushbutton  in  this  menu  is  ACCEL  (accelerometers),  which  will 
change  the  display  back  to  that  shown  in  Figure  11.  The  second  and  third  pushbuttons  are 
unused  and  display  a  blank.  The  fourth  pushbutton  is  SYSTEM,  which  clears  the  displays  and 
presents  a  third  menu  (see  Figure  13). 

The  first  pushbutton  of  the  SYSTEM  menu  is  START  RECORD,  which  produces  another  menu 
(see  Figure  14)  to  initiate  data  recording.  The  second  pushbutton  is  START  DATA,  which 
produces  another  menu  (see  Figure  16)  to  initiate  the  transfer  of  stored  data  to  a  remote 
computer.  The  third  pushbutton  is  SETUP,  which  produces  another  menu  (see  Figure  18)  for  the 
diagnostic  maintenance  of  the  HRA.  The  fourth  pushbutton  is  EXIT,  which  returns  the  display 
back  to  that  shown  in  Figure  11. 

The  first  pushbutton  of  the  RECORD  menu  (see  Figure  14)  is  RECORD  UNCOMP  (record 
uncompressed),  which  will  store  the  data  in  an  uncompressed  format  (see  Appendix  B:  Data 
Format  and  Transfer).  The  second  pushbutton  is  RECORD  COMP  (record  compressed)  which 
will  store  the  triaxial  acceleration  data  as  the  difference  between  sample  values  (see  Appendix  B: 
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Data  Format  and  Transfer)  to  conserve  data  storage.  The  third  pushbutton  is  unused  and  displays 
a  blank.  The  fourth  pushbutton  is  EXIT,  which  returns  the  display  back  to  that  shown  in  Figure 
11. 

If  either  the  RECORD  UNCOMP  or  the  RECORD  COMP  pushbutton  was  depressed,  then  the 
initial  display  shows  RECORD  ON  indicating  that  the  three  triaxial  accelerations,  compass,  pitch 
and  roll  data  are  being  recorded..  The  first  pushbutton  of  this  first  menu  is  now  STOP 
RECORD,  which  will  terminate  data  recording  and  close  the  storage  data  file  (see  Appendix  B: 
Data  Format  and  Transfer)  as  shown  in  Figure  15. 

The  first  pushbutton  of  the  DATA  transfer  menu  (see  Figure  16)  is  START  DATA,  which 
initiates  a  data  transfer.  The  second  and  third  pushbuttons  are  unused  and  display  a  blank.  The 
fourth  pushbutton  is  EXIT,  which  returns  the  display  back  to  that  shown  in  Figure  11.  Data 
transfer  should  not  be  initiated  without  a  remote  data  communication  session  (see  Appendix  B: 
Data  Format  and  Transfer).  If  this  occurs,  either  a  remote  session  should  be  started  or  the  HRA 
should  be  reinitiated  (+24  VDC  power  down  and  power  up). 

If  the  data  transfer  is  initiated  the  display  shows  a  prompt  without  a  menu,  as  shown  in  Figure 
17. 

If  the  SETUP  pushbutton  is  pushed  in  the  SYSTEM  menu  (see  Figure  13),  the  display  changes 
to  that  shown  in  Figure  18.  The  first  pushbutton  of  the  SETUP,  or  diagnostic,  menu  is  ACCEL 
(accelerometers).  If  ACCEL  is  pushed,  the  display  changes  to  that  shown  in  Figure  19  which 
shows  a  maintenance  numerical  display  of  the  three  triaxial  accelerometers.  The  second 
pushbutton  is  DISPLY  (display).  If  DISPLY  is  pushed,  the  display  changes  to  that  shown  in 
Figure  20  which  maintains  the  clarity  of  the  LCD.  The  third  pushbutton  is  unused  and  displays  a 
blank.  The  fourth  pushbutton  is  EXIT,  which  returns  the  display  back  to  that  in  Figure  11. 

If  the  ACCEL  pushbutton  is  pushed  in  the  SETUP  menu,  the  display  changes  to  that  shown  in 
Figure  19.  A  maintenance  display  of  the  three  triaxial  accelerometer  sensors  is  shown  in 
instantaneous,  calibrated  (G)  numerical  form  to  verify  the  integrity  of  the  nine  sensors.  The  first, 
second  and  third  pushbuttons  are  unused  and  display  a  blank.  The  fourth  pushbutton  is  EXIT, 
which  returns  the  display  back  to  that  in  Figure  11. 

If  the  DISPLY  (display)  pushbutton  is  pushed  in  the  SETUP  menu,  the  display  changes  to  that 
shown  in  Figure  20.  The  first  pushbutton  of  the  DISPLY  menu  is  ADJUST,  which  varies  the 
contrast  of  the  LCD  linearly  from  its  normal  (midscale)  value  to  low  contrast,  then  high  contrast, 
and  back  through  low  contrast  continuously.  The  second  pushbutton  is  CLEAR,  which  cycles 
automatically  and  clears  and  restores  contrast  to  the  LCD.  The  third  pushbutton  is  unused  and 
displays  a  blank.  The  fourth  pushbutton  is  EXIT,  which  maintains  any  contrast  adjustments 
made  and  returns  the  display  back  to  that  in  Figure  11. 
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FIGURES 
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HRA  Design  ,  Data  Transfer  and 

I  Post-Mission 


Figure  1.  HRA  General  Arrangement 


Figure  2.  Helmsman  Recording  Accelerometer  Components 
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Figure  3.  Data  Acquisition  Component 


Figure  4.  Data  Acquisition  and  Processing  Electronics 
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Figure  5.  Console  Display  and  Operator’s  Input  Component 


Figure  6.  Data  Transfer  and  Display  Coiuiector  Assembly 


Figure  7.  Triaxial  Accelerometer  Component 


Figure  8.  Inclinometer  and  Electronic  Compass  Component 
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Figure  9.  Component,  Sensor,  and  Cabling  Layout 


AFT  AFT 

HELM  STARBOARD  PORT  ELECTRONIC  COMPASS/ 

ACCELEROMETER  ACCELEROMETER  ACCELERDMTER  HORIZON  SENSOR 


igure  10.  Connector  Layout 


Figure  11.  Aft  and  helm  peak  and  moving  average  vertical  acceleration  display. 


Figure  13.  SYSTEM  menu. 


Figure  14.  RECORD  menu. 


Figure  15.  Aft  and  helm  acceleration  display  during  RECORD  mode 


Figure  16.  DATA  transfer  menu. 
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Figure  17.  Display  during  DATA  transfer. 


Figure  18.  SETUP  (diagnostic)  menu. 


Figure  19.  Peak  triaxial  acceleration  (ACCEL)  diagnostic  display 
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Figure  20.  DISPLY  (display)  diagnostic  menu. 
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DATA  FORMAT  AND  TRANSFER 
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The  HRA  sensor  calibration  is  dixv  ASCII  file  entitled  helmcaldat.  The  calibration  file  structure  is 
as  follows,  with  U  indicating  computer  units: 


integer 

diagnostic  parameter  (usually  set  to  0  for  normal  operation) 

integer 

helm  X  acceleration  zero  [U] 

floating  point 

helm  X  acceleration  calibration  [U/G] 

integer 

helm  Y  acceleration  zero  [U] 

floating  point 

helm  Y  acceleration  calibration  [U/G] 

integer 

helm  Z  acceleration  zero  [U] 

floating  point 

helm  Z  acceleration  calibration  [U/G] 

integer 

aft  starboard  X  acceleration  zero  [U] 

floating  point 

aft  starboard  X  acceleration  calibration  [U/G] 

integer 

aft  starboard  Y  acceleration  zero  [U] 

floating  point 

aft  starboard  Y  acceleration  calibration  [U/G] 

integer 

aft  starboard  Z  acceleration  zero  [U] 

floating  point 

aft  starboard  Z  acceleration  calibration  [U/G] 

integer 

port  starboard  X  acceleration  zero  [U] 

floating  point 

port  starboard  X  acceleration  calibration  [U/G] 

integer 

port  starboard  Y  acceleration  zero  [U] 

floating  point 

port  starboard  Y  acceleration  calibration  [U/G] 

integer 

port  starboard  Z  acceleration  zero  [U] 

floating  point 

port  starboard  Z  acceleration  calibration  [U/G] 

integer 

pitch  zero 

integer 

roll  zero 

The  data  file  is  a  binary  file  entitled  mmddhhnn.hra,  where  the  file  name  is  constructed  from  the 
two  digit  month  (mm),  day  (dd),  hour  (hh),  and  minute  {nn)  when  the  file  was  opened.  This 
construct  gives  a  unique  file  name  that  identifies  the  information  stored  by  the  date  and  time  of 
its  inception.  The  data  file  structure  is  as  follows: 


integer 

compression  (1  compressed,  0  uncompressed  data) 

integer 

helm  X  acceleration  zero  [U] 

integer 

helm  X  acceleration  calibration  [U/G] 

integer 

helm  Y  acceleration  zero  [U] 

integer 

helm  Y  acceleration  calibration  [U/G] 

integer 

helm  Z  acceleration  zero  [U] 

integer 

helm  Z  acceleration  calibration  [U/G] 

integer 

aft  starboard  X  acceleration  zero  [U] 

integer 

aft  starboard  X  acceleration  calibration  [U/G] 

integer 

aft  starboard  Y  acceleration  zero  [U] 

integer 

aft  starboard  Y  acceleration  calibration  [U/G] 

integer 

aft  starboard  Z  acceleration  zero  [U] 

integer 

aft  starboard  Z  acceleration  calibration  [U/G] 

integer 

port  starboard  X  acceleration  zero  [U] 

integer 

port  starboard  X  acceleration  calibration  [U/G] 
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integer 

integer 

integer 

integer 

integer 

integer 


port  starboard 
port  starboard 
port  starboard 
port  starboard 
pitch  zero 
roll  zero 


Y  acceleration  zero  [U] 

Y  acceleration  calibration  [U/G] 
Z  acceleration  zero  [U] 

Z  acceleration  calibration  [U/G] 


This  is  followed  by  the  nine  channels  of  acceleration  data  stored  either  in  byte  or  integer  format 
as  dictated  by  the  compression  parameter.  The  next  three  integers  (regardless  of  compression)  is 
the  compass  heading  in  U  with  a  scale  factor  of  11.37  U/degree  and  the  pitch  and  roll  both  m  U 
and  both  with  a  scale  factor  of  34.13  U/.degree.  This  set  of  12  measurements  is  then  repeated  at 
50  samples  per  second  until  recording  is  manually  stopped  (see  Figure  14)  or  the  non-volatile 
storage  medium  is  full  and  the  recording  is  automatically  terminated. 


There  is  a  minimum  of  22  MB  of  non-volatile  data  storage  available,  which  provides  over  8 
hours  of  recording  time  in  compressed  mode  and  over  5  hours  in  uncompressed  mode.  All  data 
files  are  common  MS  DOS  files,  share  the  available  storage  and  would  be  normally  transferred 
from  the  HRA  to  a  remote  (laptop)  computer  for  further  processing  and  analysis  . 


Data  transfer  is  started  from  the  SYSTEM  selection  on  the  initial  acceleration  display  (see  Figure 
11)  SYSTEM  is  only  available  if  data  recording  is  off  (RECORD  OFF  shown,  as  in  Figure  11). 
The  SYSTEM  menu  (see  Figure  13)  has  the  START  DATA  selection  available  which  produces 
the  DATA  transfer  menu  (see  Figure  16).  This  evokes  an  MS  DOS  mode  session  of 
pcANYWHERE  for  DOS  (Symantec)  to  begin.  The  data  transfer  is  through  a  10  conductor  cable 
to  a  high  speed  serial  port  of  an  external  computer  executing  pcANWHERE  32  (Symantec, 
Windows  95/Windows  NT)  version  8.  The  initialized  communication  parameters  are  8  bit,  no 

parity,  at  19.2  Kb/sec. 

The  remote  session  allows  full,  external  control  of  the  embedded  HRA  processing  unit.  Data 
files  can  be  transferred  and  deleted,  the  calibration  file  can  be  edited,  and  the  application 
software  (helm.exe)  can  be  edited,  compiled,  and  linked  and  downloaded  to  the  HRA  for  further 
performance  and  operational  upgrades. 
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SOURCE  CODE 
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The  C  language  source  code  for  the  embedded  application  software  Qielmx)  and  the  8086 
assembly  language  subroutines  (helmsub.asm)  are  listed  below. 

1  /*  Helmsman  Recording  Accelerometer 


2 

01998 

Conrad  Technologies,  Paoli  PA 

3 

heim.c 

4 

FLASH  storage  22  MB  (27  MB  formatted) 

5 

compass  11.37U/deg  iacc[10]  0-359  deg 

6 

pitch 

34.13  U/deg  iacc[11]  +-60  deg 

7 

roll 

34.13  U/deg  iacc[12]  +-60  deg 

8 

*/ 

9 

#include  <stdio.h> 

10 

#include  <io.h> 

11 

#include  <fcntl.h> 

12 

#include  <graph.h> 

13 

#include  <dos.h> 

14 

#include  <string.h> 

15 

#include  <bios.h> 

16 

#include  <math.h> 

17 

#include  <time.h> 

18 

char 

string[40]  =  “static  string”; 

19 

char 

shdazm[7]="AZM/HD"; 

20 

char 

saccel[6]="ACCEL": 

21 

char 

sdisply[7]="DISPLY": 

22 

char 

srecord[7]="RECORD": 

23 

char 

suncomp[7]=“UNCOMP": 

24 

char 

scomp[5]="COMP": 

25 

char 

sdata[5]="DATA"; 

26 

char 

son[3]="ON“: 

27 

char 

soff[4]="OFF"; 

28 

char 

sadjust[7]="ADJUST": 

29 

char 

sclear[6]="CLEAR"; 

30 

char 

scntrst[7]=“CNTRST": 

31 

char 

sreset[6]=“RESET": 

32 

char 

sstart[6]="START“: 

33 

char 

sstop[5]=''STOP“: 

34 

char 

ssystem[7]="SYSTEM"; 

35 

char 

sscale[6]="SCALE"; 

36 

char 

ssetup[6]=“SETUP"; 

37 

char 

smon[4]="MON"; 

38 

char 

sexit[5]="EXIT“; 

39 

char 

s180[4]=“180"; 

40 

char 

fbuffer[2000]: 

41 

char 

sdate[1 2]  ,stime[1 2],sfile[20]; 

42 

char 

bdata; 

43 

int 

i,j,irecord,ipb; 

44 

int 

ifhandle.idiagn; 
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int  icomp.ichan.idata.ilcd; 

int  iacc[1 6],ilaccp  6],ichz[1 6],ichg[1 6]; 

int  iaccgn,ivaca,ivacla,ivach,ivaclh: 

int  ivacmap,ivacama,ivacamas[50],ivachma: 

static  int  ivachmas[50]: 

int  ivacmapmx,ivacptc,ivacap,ivacaptc,ivachp,ivachptc: 

int  ihdazmd,icmps,icmpsl,iptch,iptchl,iptchz,irot,iroti,irotz; 

int  ix,iy,ixl,iyl; 

iong  Irecnum; 

float  ftemp: 

float  fchg[16]: 

FILE  *fp; 

mainO 

{ 

/*  initialization  and  start*/ 

start:  inithwdQ:  /*  initialize  hardware  */ 

IcdoffQ:  /*  LCD  bias  off  */ 

disponO:  I*  display  ON  */ 

clearO:  /*  clear  LCD  */ 

for  (iy=0;iy<=127;iy++) 

{ 

for  (ix=0;ix<=239;ix++) 

setpix(ix,iy): 

for  (ix=0;ix<=239:ix++) 

clrpix(ix,iy); 

IcdmidO:  /*  LCD  bias  midscale  */ 

ilcd=32; 

/*  helmcal.dat  diagnostic  (0/1) 
helmsman  X  Y  Z  aft  starboard  X  Y  Z  aft  port  X  Y  X 
accelerometer  calibration:  ichz  zero  U,  fchg  gain  U/G 
pitch  zero,  roll  zero  */ 

if  ((fp=fopen("helmcal.dat","r''))==NULL) 
goto  erraccel; 

fscanf(fp,"%d\n",&idiagn);  /*  diagnostic  */ 
for  (i=1:i<=9:i++) 

fscanf(fp.”%d\n%An'',&ichz[i],&fchg[i]); 

ichg[i]=fchg[i]+0.5: 

fscanf(fp,“%d\n%d\n",&iptchz,&irotz); 

fclose(fp): 

/* open  datafile  mmddhhmm.hra 

compression  (0/1),  9[accel  channel  zero  U,  accel  channel  gain  fp  U/G] 
pitch  zero  U,  roll  zero  U,  {9[accel  data  (byte/word)  U], 


90 


compass  U,  pitch  U,  roll  U} . */ 


91 

92 

93 

94 

95 

96 

97 

98 

99 

100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 


restart:  _strdate(sdate); 

_strtime(stime); 

i=0: 

j=0: 

sfscca:  if  (sdate[i]  == '/') 

goto  sfsca; 

sfiieD]=sdatep]; 

i++: 

j++: 

goto  sfscca; 

sfsca:  i++; 

sfsccb:  if  {sdate[i]  ==  7‘) 

goto  sfscb; 

sfileO]=sdaten]; 

i++: 

j++: 

goto  sfsccb; 

sfscb:  i=0; 

sfsccc:  if  (stime[i]  ==  ':') 

goto  sfscc; 

sfileO]=stimep]; 

i++; 

j++; 

goto  sfsccc; 

sfscc:  i++; 

sfsccd:  if  (stimep]  == ':') 

goto  sfscd; 

sfilep]=stimep]; 

i++: 

j++: 

goto  sfsccd; 

sfscd:  sfileO]='.'; 

j++; 

sfileD]=‘h'; 

j++: 

sfileD]=‘r'; 

j++: 

sfilep]='a'; 

j++: 

sfileO]=^0■; 

ifhandle=open(sfile,  0_BINARY  |  0_WRONLY  |  0_CREAT): 
if  (ifhandle==-1) 
goto  errfopen; 


134  /*  initialize  parameters  */ 


135 

icomp=0; 

136 

iaccgn=2; 

137 

irecord=0; 

138 

ivacmapmx=50; 

139 

ivacptc=200; 

/*  uncompressed  data  */ 

/*  accelerometer  display  gain  */ 
/*  recorder  OFF  */ 

/*  moving  average  size  */ 

/*  peak  acceleration  TC  */ 
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/*  banner  */ 


141  clearQ: 

142  strcpy(string, "HELMSMAN  ACCELERATION  DISPLAY  v1 .2"); 

143  lcdte)ct(20, 65, string): 

144  strcpy(string, "Conrad  Technologies"); 

145  lcdtext(60, 45, string); 

146  rectangle( 10,38,220,50): 

147  rectangle(9,37,222,52); 

148  wait(1500); 

149  /*  acceleration  display  setup  */ 


150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 


accdsps:  clearQ: 

menuO; 

waitpbQ: 

lcdtext(203,72,sscale); 
lcdtext(1 53, 1 2,srecord) ; 
if  (irecord==0) 

{ 

lcdtext(201 ,102,shdazm): 
lcdtext(201 ,6,ssystem); 
lcdtext(l62,0,soff): 

} 

else 

{ 

lcdtext(206, 1 08,sstop) ; 
lcdtext(201 ,96,srecord): 
lcdtext(1 66,0, son); 

} 

dispacc(iaccgn); 

ivacla=0;  /*  last  vertical  acceleration  */ 

ivaclh=0: 

ivacap=0;  /*  peak  vertical  acceleration  */ 

ivachp=0: 

ivacaptc=ivacptc:  /*  peak  vertical  acceleration  TC  */ 

ivachptc=ivacptc: 

for  (i=1  :i<=ivacmapmx:i++)  /*  zero  moving  average  storage  */ 

{ 

ivacamas[i]=0; 

ivachmas[i]=0: 

} 

ivacmap=1 ;  /*  moving  average  pointer  */ 

ivacama=0:  /*  moving  average  value  */ 

ivachma=0: 


182  /*  acceleration  display  */ 


183  accdsp:  readpb(&ipb);  /*0  none 

184  hd/azm  display 

185  accelerometer  display  gain 

186  exit  on  diagnostic 

187  system  */ 

188  if  (idiagn==0) 
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189 

goto  accdpb; 

190 

CO 

II 

II 

Q. 

191 

goto  extpgm; 

192 

accdpb:  if  (ipb==2)  /*  accelerometer  gain  ’ 

193 

goto  accgain; 

194 

if  (irecord==1) 

195 

goto  accdspr; 

196 

if  (ipb==1)  r  only  if  not  recording  */ 

197 

goto  hdazmdsps; 

198 

if  (ipb==4) 

199 

goto  sysfunct; 

200 

goto  accdspc; 

201 

accdspr:  if  (ipb==1)  /*  stop  recording  */ 

202 

goto  stoprec; 

203 

accdspc:  wclockQi  /*  data  sampling  */ 

204 

for  (i=1;i<=6:i++) 

205 

add  (i,&iacc[i]): 

206 

for  (i=1;i<=6:i++) 

207 

adc2(i,&iacc[i+6]): 

208 

if  {irecord==0) 

209 

goto  accdcal; 

210 

if  (lrecnum==0)  /*  recording  data  */ 

211 

{ 

212 

for  {i=1:i<=12;i++) 

213 

ilacc[i]=iacc[i]; 

214 

} 

215 

if  (icomp==0) 

216 

goto  recuncomp; 

217 

j=0;  /*  compressed  recording  */ 

218 

for  (1=1  :i<=9:i++)  /*  delta  accel  */ 

219 

{ 

220 

idata=iacc[i]-ilacc[i]; 

221 

ilacc[i]=iacc[i]; 

222 

bdata=idata; 

223 

fbufferO]=bdata: 

224 

j++: 

225 

226 

for  (i=10;i<=12;i++)  /*  compass,  pitch,  roll  */ 

227 

{ 

228 

fbuffer[i]=iacc[i]; 

229 

j++: 

230 

j++; 

231 

>  ..  , 

232 

if(write(ifhandle,  fbuffer,  15)1=15)  /*  data  recording  */ 

233 

goto  recerr; 

234 

lrecnum++: 
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235  if  (lrecnum<=1 466666)  /*  15  x  1 .4666  MB  =  22  MB  */ 

236  goto  accdcal; 

237  goto  stoprec; 


238  recuncomp:  j=0;  I*  uncompressed  recording  */ 

239  for  (i=1:i<=12:i++) 

240  { 

241  fbufferD]=iacc[i]: 

242  j++; 

243  j++: 

244  } 

245  if(write(ifhandle,  fbuffer,  24)1=24)  /*  data  recording  */ 

246  goto  recerr; 

247  lrecnum++; 

248  if  (lrecnum<=91 6666)  /*  24  x  0.91 666  MB  =  22  MB  */ 

249  goto  accdcal; 

250  goto  stoprec: 


251  accdcal:  idata=iaccgn*(abs(iacc[3]-ichz[3])/ichg[3]):  /*  HELM  Az  */ 

252  ivacmap++;  f*  check  moving  average  pointer  */ 

253  if  (ivacmap>ivacmapmx) 

254  ivacmap=1: 

255  ivachma=ivachma+idata-ivachmas[ivacmap] ; 

256  ivachmas[ivacmap]=idata; 

257  ivach=ivachma/ivacmapmx; 

258  if(ivach>=20)  /*  maximum  display  value  */ 

259  ivach=20; 


260  if  (ivach>ivachp)  /*  check  peak  value  */ 

261  { 

262  clrthres(ivachp,1); 

263  ivachp=ivach: 

264  ivachptc=ivacptc: 

265  setthres(ivachp,1): 

266  } 

267  if  (ivach==ivaclh) 

268  goto  acchpdsp; 

269  if  (ivach>ivaclh)  f*  HELM  acceleration  display  */ 

270  { 

271  for  (i=ivaclh+1;i<=ivach:i++) 

272  setvacc(i,1): 

273  } 

274  if  (ivach<ivaclh) 

275  { 

276  for  (i=ivaclh:i>ivach:i“) 

277  clrvacc(i,1); 

278  } 

279  ivaclh=ivach: 


280  acchpdsp:  if  (ivachp<=0)  /*  peak  HELM  acceleration  display  */ 

281  goto  accadsp: 

282  ivachptc--: 

283  if  (ivachptc==0) 

284  { 
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285  ivachptc=ivacptc: 

286  clrthres(ivachp,1): 

287  ivachp--; 

288  setthres(ivachp,1): 

289  } 


290 

291 

292 

293 

294 

295 

296 

297 

298 

299 


accadsp:  if  (iacc[6]>=iacc[9])  I*  select  greatest  AFT  Az  */ 

ichan=6; 

else 

ichan=9: 

idata=iaccgn*(abs(iaccpchan]-ichz[ichan])/ichg[ichan]); 

ivacama=ivacama+idata-ivacamas[ivacmap]: 

ivacamas[ivacmap]=idata; 

ivaca=ivacama/ivacmapmx; 

if(ivaca>=20)  /*  maximum  display  value  */ 

ivaca=20; 


300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 


if  (ivaca>ivacap)  /*  check  peak  value  */ 

{ 

clrthres(ivacap,0): 

ivacap=ivaca; 

ivacaptc=ivacptc: 

setthres(ivacap,0): 

} 

if  (ivaca==ivacla) 
goto  accapdsp; 
if  (ivaca>ivacla) 

{ 

for  (i=ivacla+1;i<=ivaca;i++) 
setvacc(i,0); 

} 

if  (ivaca<ivacla) 

{ 

for  (i=ivacla:i>ivaca;i--) 
clrvacc(i,0): 

} 

ivacla=ivaca; 


320  accapdsp:  if  (ivacap<=0)  /*  peak  AFT  acceleration  display  */ 

321  goto  accdsp: 

322  ivacaptc--: 

323  if  (ivacaptc==0) 

324  { 

325  ivacaptc=ivacptc: 

326  clrthres(ivacap,0): 

327  ivacap--: 

328  setthres(ivacap,0): 

329  } 

330  goto  accdsp: 


331  /*  accelerometer  gain  */ 

332  accgain:  if(iaccgn==1) 

333  iaccgn=2; 
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334 

else 

335 

iaccgn=1: 

336 

goto  accdsps; 

337 

/*  system  function  setup  */ 

338 

sysfunct:  clearQ: 

339 

menuQ: 

340 

waitpbO: 

341 

if  (irecord==0) 

342 

lcdtext(204, 1 08,sstart) ; 

343 

else 

344 

lcdtext(206. 1 08,sstop) ; 

345 

lcdtext(201 ,96,srecord): 

346 

lcdtext(204,76,sstart) ; 

347 

lcdtext(206,64,sdata): 

348 

lcdte)ct(204,38,ssetup) ; 

349 

lcdtext{206,6,sexit); 

350 

strcpy(string,“>Select  RECORD,  DATA,"); 

351 

lcdtext(0,12,string): 

352 

strcpy(string,"  SETUP  or  EXIT"); 

353 

lcdte>ct(0,0,string); 

354 

/*  system  function  display  */ 

355 

sysdsp:  readpb(&ipb):  /*0  none 

356 

start  recording 

357 

start  data  transfer 

358 

setup  (diagnostics) 

359 

exit  */ 

360 

if  (ipb==1) 

361 

goto  startrec; 

362 

if  (ipb==2) 

363 

goto  startdata; 

364 

if  (ipb==3) 

365 

goto  setdiag: 

366 

if  {ipb==4) 

367 

goto  accdsps; 

368 

goto  sysdsp; 

369 

/*  heading/azimuth  display  setup  */ 

370 

hdazmdsps:  clearQ: 

371 

menuQ: 

372 

waitpbQ; 

373 

lcdtext(204, 1 02 ,saccel) ; 

374 

lcdtext(201 ,6,ssystem) ; 

375 

distxt(1 42, 104,48): 

376 

distxt(1 89,61 ,57): 

377 

distxt(1 89,50,48): 

378 

Icdtext(136,6,s180); 

379 

distxt(95,66,50): 

380 

distxt(95.55,55): 

381 

distxt(95,44,48): 
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382 

disphdazmO: 

383 

icmpsl=-1 : 

384 

iptchkO: 

385 

irotl=0: 

386 

ihdazmd=1 : 

/*  last  compass  */ 

/*  last  pitch  */ 

/*  last  rotate  */ 

/*  hd/azm  display  toggle  */ 


387  /*  heading/azimuth  display  */ 


388  hdazmdsp:  readpb(&ipb);  /*0  none 

389  accel  display 

390  system  */ 

391  hdazmpb:  if  (ipb==1) 

392  goto  accdsps; 

393  if  (ipb==4) 

394  goto  sysfunct; 


395  wclockO:  /*  sample  hd/azm  data  */ 

396  icmps=0: 

397  irot=0; 

398  iptch=0; 

399  forG=1:j<=6:j++) 

400  { 

401  adc2(4,&iacc[11]): 

402  icmps=icmps+iacc[11]: 

403  } 

404  icmps=icmps/6: 

405  for(j=1:j<=10:j++) 

406  { 

407  adc2(5,&iacc[11]): 

408  adc2(6,&iacc[l2]); 

409  iptch=iptch-iacc[1 1]+iptchz:  /*  reverse  for  display  */ 

410  irot=irot-iacc[12]+irotz: 

411  } 

412  iptch=iptch/10; 

413  irot=irot/10: 


414  if  (icmpsl==-1) 

415  icmpsl=icmps; 

416  readpb(&ipb): 

417  if  {ipb!=0) 

418  goto  hdazmpb: 

419  showhd(icmps,icmpsl); 

420  icmpsl=icmps: 

421  readpb{&ipb): 

422  if  (ipb!=0) 

423  goto  hdazmpb: 

424  showazm(iptch,iptchl,irot,irotl): 

425  iptchl=iptch: 

426  irotl=irot: 

427  goto  hdazmdsp: 


428 

/*  start  recording  */ 

429 

startrec:  clearQ: 
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430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 


menuO; 

waitpbQ; 

strcpy(string,">Select  UNCOMPpressed  or"); 
lcclte>ct(0, 12, string): 

strcpy(string,“  COMPressed  recording  mode"); 

icdtext(0,0, string); 

irecord=0: 

icdtext(201 ,108,srecord): 
icdtext(201 ,96,suncomp): 
icdtext(201 ,76,srecord): 
icdtext(206,64,scomp) ; 
icdtext(206,6,sexit): 

strtrec:  readpb{&ipb);  /*  0  none 

uncompressed 

compressed 

exit*/ 

if  (ipb==1) 

goto  uncomprec; 

if  (ipb==2) 

goto  comprec; 

if  (ipb==4) 

goto  accdsps; 

goto  strtrec; 

uncomprec:  icomp=0; 

goto  uncmprec; 
comprec:  icomp=1: 

uncmprec:  irecnum=0: 

irecord=1 ; 
fbuffer[0]=icomp: 
j=2: 

for  {i=1;i<=9:i++) 

{ 

fbufferO]=ichz[i]: 

j++: 

j++: 

fbufferD]=ichg[i]: 

j++: 

j++: 

} 

fbufferO]=iptciiz: 

j++: 

j++: 

fbufferD]=irotz: 

if(write(ifhandie.  fbuffer,  24)!=24)  /*  data  recording  */ 
+goto  recerr; 
goto  accdsps: 

/*  stop  recording  7 

stoprec:  irecord=0: 

close(ifhandie); 

clearQ: 


477 

478 

479 
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strcpy{string,">RECORDING  stopped"); 

lccitext(0, 12, string): 

strcpy(string,“  file;  “); 

lc(jtext(0,0, string): 

lcdtext(40,0,sfile); 

wait(5000); 

goto  restart: 

/*  start  data  transfer  */ 

startdata:  clearQ: 

menuO; 

waitpbQ: 

lcdtext(204, 1 08,  sstart) ; 
lccltext(206,96,sdata) ; 
lcdtext(206,6,sexit); 

strcpy(string,''>Ready  for  DATA  transfer"); 

lcdtext(0,12,string); 

strcpy(string,"  START  or  EXIT"); 

lcdtext(0,0,string); 

lcdtext(206,6,sexit): 

strtdat:  readpb(&ipb):  /*0  none 

exit  */ 

if  (ipb==1) 

goto  strtdatc; 

if  (ipb==4) 

goto  accdsps; 

goto  strtdat; 

strtdatc;  clearQ; 
waitpbQ; 

strcpy(string,">DATA  transfer  mode,"); 
lcdtext(0,12,string); 
strcpy(striiig,“begin  remote  session"); 
lcdtext(0,0,string); 
goto  extpgm; 

r  setup  (diagnostics)  */ 

setdiag:  clearQ; 

menuQ: 

waitpbQ; 

lcdtext(204,102,saccel); 
lcdtext(201 ,70,sdisply); 
lcdtext(206,6,sexit): 

strcpy(string,">Select  ACCELerometer  or"); 
lcdtext(0,12,string); 
strcpy(string,"  DISPLAY  setup") ; 
lcdtext(0,0,string): 

stdia:  readpb(&ipb):  /*0  none 

accelerometers 

display 


527 

exit  */ 

528 

if  (ipb==1) 

529 

goto  setaccel; 

530 

if  (ipb==2) 

531 

goto  setdisply: 

532 

if  (ipb==4) 

533 

goto  accdsps; 

534 

goto  stdia; 

535 

/*  setup  accelerometer  */ 

536 

setaccel:  clearQ; 

537 

menuO: 

538 

waitpbQ: 

539 

lcdtext(206,6,sexit): 

540 

strcpy(string,"Peak  Triaxial  Acceleration"); 

541 

lcdtext(0,1 10, string); 

542 

strcpy(string.“HELMSMAN"); 

543 

lcdtext(0, 80, string); 

544 

strcpy(string,"STARBOARD  AFT"); 

545 

icdtext(0,50,string); 

546 

strcpy(string,"PORT  AFT"); 

547 

lcdtext(0,20,string); 

548 

stacci:  readpb(&ipb);  /*4  exit*y 

549 

if  (ipb==4) 

550 

goto  accdsps; 

551 

for  (i=1;i<=6;i++) 

552 

add  (i,&iacc[i]); 

553 

for  (i=1;i<=3;i++) 

554 

adc2(i,&iacc[i+6]); 

555 

for  (i=65;i<=78;i++) 

556 

clrline(150,i); 

557 

readpb(&ipb); 

558 

if  (ipb==4) 

559 

goto  accdsps; 

560 

ftemp=(iacc[1  ]-ichz[1  ])/fchg  [1  ] ; 

561 

sprintf(string,"X  %5.1f",ftemp); 

562 

lcdtext(0,65,string); 

563 

ftemp=(iacc[2]-ichz[2])/fchg[2]; 

564 

sprintf(string,“Y  %5.1f",ftemp); 

565 

lcdtext(50,65,string); 

566 

ftemp=(iacc[3]-ichz[3])/fchg[3]; 

567 

sprintf(string,"Z  %5.1f  [G]",ftemp); 

568 

lcdtext(100,65,string); 

569 

readpb(&ipb); 

570 

if  (ipb==4) 

571 

goto  accdsps; 
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572 

for  (i=35:i<=48;i++) 

573 

clrline(150,i): 

574 

readpb(&ipb): 

575 

if  (ipb==4) 

576 

goto  accdsps; 

577 

ftemp=(iacc[4]-ichz[4])/fchg  [4] ; 

578 

sprintf(string,"X  %5.1f  .fternp); 

579 

lcdtext(0, 35, string): 

580 

ftemp=(iacc[5]-ichz[5])/fchg[5]: 

581 

sprintf(string,"Y  %5. 1  f.ftemp) ; 

582 

lcdtext(50, 35, string); 

583 

ftemp=(iacc[6]-ichz[6])/fchg[6]: 

584 

sprintf(string,"2  %5.1f  [G]",ftemp); 

585 

lcdtext(100,35,string): 

586 

readpb(&ipb); 

587 

if  (ipb==4) 

588 

goto  accdsps; 

589 

for  {i=5:i<=18:i++) 

590 

clriine{150,i): 

591 

readpb(&ipb): 

592 

if  (ipb==4) 

593 

goto  accdsps; 

594 

ftemp=(iacc[7]-ichzI7])/fchg[7]; 

595 

sprintf(string,"X  %5. 1  f  ",ftemp) ; 

596 

lcdtext(0,5,string); 

597 

ftemp=(iacc[8]-ichz[8])/fchg[8]: 

598 

sprintf(string,“Y  %5.1f“,ftemp): 

599 

lcdtext(50,5,string); 

600 

ftemp= (iacc[9]-ichz[9])/fchg  [9] ; 

601 

sprintf(string,"Z  %5.1f  [G]",ftemp): 

602 

icdtext(100,5,string): 

603 

goto  staccl; 

604 

/*  setup  display  */ 

605 

setdisply:  clearQ: 

606 

menuO: 

607 

waitpbQ; 

608 

lcdtext(201 ,102,sadjust): 

609 

lcdtext(204,72,sclear) ; 

610 

lcdtext(206,6,sexit); 

611 

strcpy(string,">Select  ADJUST  or"); 

612 

lcdtext(0,12,string): 

613 

strcpy(string,"  CLEAR  display"); 

614 

lcdtext(0,0,string); 
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615 

stdisp:  reaclpb(&ipb):  /*0  none 

616 

adjust 

617 

clear  display 

618 

exit  */ 

619 

if  (ipb==1) 

620 

goto  stdadj: 

621 

if  (ipb==2) 

622 

goto  stdclr; 

623 

if  (ipb==4) 

624 

goto  accdsps; 

625 

goto  stdisp; 

626 

stdadj:  clearQ; 

627 

menuO: 

628 

waitpbQ; 

629 

lcdtext(201 ,1 02,scntrst): 

630 

lcdtext(206,6,sexit); 

631 

strcpy(string,“>ADJUST  display  contrast”); 

632 

icdtext(0,0, string); 

633 

sdadj:  readpb(&ipb);  1*0  none 

634 

contrast 

635 

exit  */ 

636 

if  (ipb==1) 

637 

{ 

638 

IcdincQ: 

639 

ilcd++; 

640 

O 

Q. 

II 

II 

CO 

641 

{ 

642 

for  (i=44;i<=63;i++) 

643 

IcdincQ; 

644 

for  {i=0;i<=25;i++) 

645 

IcdincQ; 

646 

ilcd=25; 

647 

} 

648 

wait(125); 

649 

} 

650 

II 

II 

Q. 

651 

goto  accdsps; 

652 

goto  sdadj; 

653 

1*  setup  display  clear  */ 

654 

stdclr:  clearQ; 

655 

waitpbQ; 

656 

strcpy(string,">Wait  for  display  to  CLEAR"); 

657 

lcdtext(0,0, string); 

658 

wait(IOOO); 

659 

for  (i=ilcd;i<=63;i++) 

660 

IcdincQ: 

661 

IcdincQ; 

662 

IcdoffQ: 
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663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 
681 
682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 


wait(8000); 

IcdmidO: 

for  (i=33:i<=63;i++) 

IcdincQ: 

IcdincQ: 

for  (i=1:i<=ilcd;i++) 

IcdincQ: 
goto  setdisply; 

/*  error  */ 

erraccel:  strcpy(string,">ERROR  in  calibration  file"); 

goto  errexit; 

errfopen:  strcpy(string,">ERROR  in  opening  data  file"); 

goto  errexit: 

recerr:  strcpy(string,">ERROR  in  recording  data"); 

errexit:  clearQ; 

lcdtext(0, 12, string): 

strcpy(string,“  run  remote  session  for  diagnosis"); 

lcdtext(0,0, string); 

wait(20000); 

extpgm;  close(ifhandle); 

printf("\nHRA  v1 .2  exit\007"); 

} 

/*  end  of  main  */ 

/*  subroutines  */ 


/*  wait  msec  */ 
wait(int  idsec) 

{ 

int  istp; 
istp=idsec/20; 
for(i=1;i<=istp:i++) 
wclockQ: 

} 


/*50HzRTC*/ 


f*  display  string  on  LCD  starting  at  ix,  iy  */ 
lcdtext(int  ix,  int  iy,  char  *str) 

{ 

int  i,ic,il; 
char  khar; 


700 

701 

702 

703 

704 

705 

706 

707 

708 

709 


il=strlen(str): 
for  (i=0:i<=il;i++) 
{ 

khar=str[i]: 
ic=khar: 
if  (ic==0) 
break; 

distxt(ix,iy,ic); 

ix=ix+6; 

} 
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710  } 

711  /*  rectangle  display  at  lower  left  location  ix,iy  with  width  iw  and 

712  height  ih  */ 

713  rectangle(int  ixl,  int  iyi,  int  iw,  int  ih) 

714  { 

715  move(ixl,iyl): 

716  draw(ixl+iw.iyl); 

717  draw(ixl+iw,iyl+ih): 

718  draw(ixl,iyl+ih); 

719  draw(ixl,iyl): 

720  } 

721  /*  button  menu  */ 

722  menuO 

723  { 

724  move(198,0): 

725  draw(198,127): 

726  rectangle(1 99,0,40,31): 

727  rectangle(1 99,32,40,31): 

728  rectangle(1 99,64,40,31): 

729  rectangle(199,96,40,31): 

730  } 

731  /*  circle  display  at  center  ixc,iyc  with  radius  ir*/ 

732  circle(int  ixc,int  iyc,int  ir) 

733  { 

734  int  ix,iy,iangle: 

735  double  fx,fy,fxc,fyc,fangle,fr,radfactor: 


736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 


radfactor=6.2831 85307/360.: 

fxc=ixc: 

fyc=iyc: 

fr=ir: 

fx=fxc+fr: 

ix=fx: 

iy=fyc: 

move(ix,iy): 

for  (iangle=0:iangle<=360:iangle++) 

{ 

fangle=iangle: 

fangle=radfactor*fangle: 

fx=fxc+fr*cos(fangle)+0.5: 

fy=fyc+fr*sin(fangle)+0.5: 

ix=fx: 

iy=fy: 

draw(ix,iy): 

} 

} 


755  /*  heading/azimuth  display  */ 

756  disphdazmO 

757  { 

758  Char  bufferI6]: 
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759 

int  i,ix,iy: 

760 

circle(50,64,40); 

761 

circle(50,64,41): 

762 

move(10,64): 

763 

draw(90,64); 

764 

move(10,63): 

765 

draw(90,63); 

766 

move(48,62): 

767 

draw(52,62); 

768 

move(49,61): 

769 

draw(51,61); 

770 

setpix(50,60): 

111 

circle(145,64,40): 

772 

circle(145,64,41); 

773 

for  (i=0:i<=2;i++) 

774 

{ 

775 

move(144+i,104): 

776 

draw(144+i,99): 

111 

move(144+i,24): 

778 

draw(144+i,29); 

779 

move(105,63+i); 

780 

draw(110,63+i): 

781 

move(180,63+i); 

782 

draw(185,63+i): 

783 

} 

784 

} 

785 

/*  show  heading  */ 

786 

showhd(int  icmps.int  icmpsi) 

787 

{ 

788 

int  ix,iy; 

789 

double  fhd,fx,fy,fr,radfactor; 

790 

radfactor=6.2831 85307/360.; 

791 

fr=35.: 

792 

fhd=icmpsl/11.37; 

793 

fhd=radfactor*fhd; 

794 

fy=fr*cos(fhd)+0.5; 

795 

fx=fr*sin(fhd)+0.5: 

796 

ix=fx: 

797 

ix=ix+145: 

798 

iy=fy: 

799 

iy=iy+64; 

800 

move(145,64): 

801 

erase(ix,iy); 

802 

fhd=icmps/1 1 .37; 

803 

fhd=radfactor*fhd; 

804 

fy=fr*cos(fhd)+0.5: 

805 

fx=fr*sin(fhd)+0.5: 

806 

ix=fx: 

807 

ix=ix+145; 

808 

iy=fy; 

809 

iy=iy+64: 
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810 

move(l  45,64): 

811 

draw(ix,iy); 

812 

} 

813 

/*  show  azimuth  */ 

814 

showazm(int  iptch,  int  iptchl,  int  irot,  int  irotl) 

815 

{ 

816 

intixl,ixll,iyl,iyll,ixr,ixrl,iyr,iyrl,iyd,iydl: 

817 

double  fptch, trot, fb,fc,fx,fy,fyd,fr,fradius,fpi,fpi2,radfactor; 

818 

double  fsrot,fcrot,fspirota,fspirotb: 

819 

radfactor=6.2831 85307/360.; 

820 

fpi=3.141592654: 

821 

fpi2= 1.570796327; 

822 

fradius=35.; 

823 

fptch=iptchl; 

824 

fyd=fptch/34.13: 

825 

iydl=fyd; 

826 

iydl=64-iydl; 

827 

frot=irotl: 

828 

frot=radfactor*(frot/34. 13); 

829 

fspirota=sin(fpi2-frot) ; 

830 

fspirotb=sin(fpi2+f  rot) : 

831 

fcrot=cos(frot); 

832 

fsrot=sin(frot): 

833 

f  b=asin  (fyd*fspirota/f  radius) ; 

834 

fc=fpi2+frot-fb: 

835 

f  r=fradius*sin  (fc)/fspirota; 

836 

fx=fr*fcrot+0.5: 

837 

fy=fr*fsrot+0.5: 

838 

ixrl=fx; 

839 

iyrl=fy: 

840 

iyrl=:iyrl+iydl: 

841 

fb=asin(fyd*fspirotb/fradius); 

842 

fc=fpi/2-frot-fb: 

843 

fr=fradius*sin  (fc)/fspirotb; 

844 

fx=fr*fcrot+0.5: 

845 

fy=fr*fsrot+0.5: 

846 

ixll=fx; 

847 

iyll=fy: 

848 

iyll=iydl-iyll: 

849 

move(10,64); 

850 

draw(90,64); 

851 

move(10,63); 

852 

draw(90,63): 

853 

move(48,62): 

854 

draw(52,62): 

855 

move(49,61); 

856 

draw(51,61): 
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857 

fptch=iptch; 

858 

fyd=fptch/34.13: 

859 

iyd=fyd; 

860 

iyd=64-iyd; 

861 

frot=irot; 

862 

frot=radfactor*(frot/34. 1 3) ; 

863 

fspirota=sin(fpi2-frot) : 

864 

fspirotb=sin  {fpi2+frot) ; 

865 

fcrot=cos(frot); 

866 

fsrot=sin(frot); 

867 

fb=asin(fyd*fspirota/fradius): 

868 

fc=fpi2+frot-fb; 

869 

fr=fradius*sin(fc)/fspirota: 

870 

fx=fr*fcrot+0.5: 

871 

fy=fr*fsrot+0.5: 

872 

ixr=fx: 

873 

iyr=fy: 

874 

iyr=iyr+iyd: 

875 

fb=asin  (fyd*fspi  rotb/f  radius) ; 

876 

fc=fpi2-frot-fb: 

877 

fr=fradius*sin(fc)/fspirotb: 

878 

fx=fr*fcrot+0.5; 

879 

fy=fr*fsrot+0.5; 

880 

ixl=fx: 

881 

iyi=fy: 

882 

iyl=iyd-iyl; 

883 

if  (ixrl!=ixr) 

884 

goto  shazmc; 

885 

if  (iyrl!=iyr) 

886 

goto  shazmc; 

887 

if  (ixll!=ixl) 

888 

goto  shazmc; 

889 

if  (iyil!=iyl) 

890 

goto  shazmc; 

891 

if  (iydl==iyd) 

892 

goto  nshazm; 

893 

shazmc:  clrpix(50,iydl); 

894 

move(50,iydl); 

895 

erase(50+ixrl,iyrl); 

896 

move(50,iydl); 

897 

erase(50-ixll.iyll); 

898 

clrpix(50,iyd); 

899 

move{50,iyd); 

900 

draw(50+ixr,iyr); 

901 

move(50,iyd); 

902 

draw(50-ixl,iyl); 

903 

nshazm:  move  (50,50); 

904 

} 

905 

/*  acceleration  display  */ 

906 

dispacc(int  igain) 

907 

{ 

908 

char  buffer[6]; 

909 

int  i,ixx,ix,iy; 

910 

for  (i=0:i<=20:i++) 

911 

{ 

912 

iy=i*6+2; 

913 

rectangle(55,iy,20,4): 

914 

rectangle(1 15,iy,20,4): 

915 

} 

916 

for  (iy=3;iy<=5:iy++) 

917 

{ 

918 

move(55,iy): 

919 

draw(75,iy); 

920 

move(115,iy): 

921 

draw(135,iy): 

922 

} 

923 

setthres(0,0): 

924 

setthres(0,1): 

925 

strcpy(buffer,”AFT"); 

926 

lcdtext(20, 110, buffer); 

927 

strcpy(buffer,"HELM"); 

928 

lcdtext(153, 110, buffer): 

929 

if  (igain==2) 

930 

goto  dispaccg; 

931 

for  (i=0:i<=8;i=i+2) 

932 

{ 

933 

iy=i*12-4; 

934 

itoa(i, buffer, 10); 

935 

lcdtext(92,iy, buffer): 

936 

move{85,iy+8): 

937 

draw(90,iy+8); 

938 

move(100,iy+8): 

939 

draw(106,iy+8); 

940 

} 

941 

move(85,124); 

942 

draw{88.124): 

943 

move(103,124): 

944 

draw(106,124): 

945 

strcpy  (buffer,  ”10”): 

946 

lcdtext(89,113,buffer): 

947 

goto  dispaccr; 

948 

dispaccg:  for  (i=0:i<: 

949 

{ 

950 

iy=i*24-4; 

951 

itoa(i,buffer,10); 

952 

lcdtext(92,iy, buffer); 

953 

nnove(85,iy+8): 

954 

draw(90,iy+8); 
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955 

move(100,iy+8); 

956 

draw(106,iy+8): 

957 

} 

958 

move(85,124): 

959 

draw(90,124); 

960 

move(100,124): 

961 

draw(106,124); 

962 

itoa(5, buffer, 10): 

963 

lcdtext(92, 1 1 3, buffer) ; 

964 

dispaccr:  move{1 00, 1 00) ; 

965 

} 

966 

/*  set  vertical  acceleration  display  box  at  position  ivac  (1-20) 

967 

and  for  left  (0)  or  right  (1)  display  */ 

968 

setvacc(int  ivac,int  idisp) 

969 

{ 

970 

int  i,iy,ixx,iyy; 

971 

ixx=56+idisp*60; 

972 

iyy=lvac*6+2; 

973 

for  (i=1;i<=3;i++) 

974 

{ 

975 

iy=iyy+i; 

976 

move(ixx,iy): 

977 

draw(ixx+18,iy): 

978 

} 

979 

} 

980 

/*  clear  vertical  acceleration  display  box  at  position  ivac  (1-20) 

981 

and  for  left  (0)  or  right  (1)  display  */ 

982 

clrvacc(int  ivac,  int  idisp) 

983 

{ 

984 

int  i,iy,ixx,iyy: 

985 

ixx=56+idisp*60: 

986 

iyy=ivac*6+2: 

987 

for  (i=1:i<=3:i++) 

988 

{ 

989 

iy=iyy+i: 

990 

move(ixx,iy): 

991 

erase(ixx+18,iy): 

992 

} 

993 

} 

994 

/*  set  threshold  triangular  mark  at  position  ivac  (1-20) 

995 

and  for  left  (0)  or  right  (1)  display  7 

996 

setthres(int  ivac,  int  idisp) 

997 

{ 

998 

int  i,ixx,iyy: 

999 

ixx=49+idisp*60; 

1000 

iyy=ivac*6+4: 

1001 

move(ixx,iyy-3): 
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1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 
1021 
1022 


draw(ixx,iyy+3): 

ixx++: 

move(ixx,iyy-2): 

draw(ixx,iyy+2): 

ixx++: 

move(ixx,iyy-1): 

draw(ixx,iyy+1): 

ixx++: 

setpix(ixx,iyy): 

ixx=ixx+26: 

setpix(ixx,iyy): 

ixx++: 

move(ixx,iyy-1): 

draw(ixx,iyy+1): 

ixx++: 

nnove(ixx,iyy-2): 

draw(ixx,iyy+2): 

ixx++: 

move(ixx,iyy-3): 

draw(ixx,iyy+3); 

} 


1023  /*  clear  threshold  triangular  mark  at  position  ivac  (1  -20) 

1024  and  for  left  (0)  or  right  (1 )  display  */ 


1025  clrthres(int  ivac,  int  idisp) 

1026  { 

1027  int  i,ixx,iyy: 


1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 


ixx=49+idisp*60; 

iyy=ivac*6+4; 

move(ixx,iyy-3): 

erase(ixx,iyy+3): 

ixx++: 

move{ixx,iyy-2): 

erase(ixx,iyy+2): 

ixx++: 

move(ixx,iyy-1): 

erase(ixx,iyy+1); 

ixx++; 

cIrpixOxx.iyy): 

ixx=ixx+26: 

clrpix(ixx,iyy): 

ixx++; 

move(ixx,iyy-1); 

erase(ixx,iyy+1); 

ixx++: 

move(ixx,iyy-2); 

erase(ixx,iyy+2); 

ixx++: 

move(ixx,iyy-3); 

erase(ixx,iyy+3): 

} 

/*  end  of  heim.c  */ 
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39 

40 

41 

42 

43 

44 

45 

46 

47 
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54 


Helmsman  Recording  Accelerometer  subroutines 
helmsub.asm 

ic  1998  Conrad  Technologies,  Paoli  PA 


6 

PIAPTA 

equ 

50H 

;PIA  port  A 

7 

PIAPTB 

equ 

51H 

;PIA  port  B 

8 

PIAPTC 

equ 

52H 

:PIA  portC 

9 

PIACTR 

equ 

53H 

:PIA  control  register 

10 

1 

11 

ADC1SR 

equ 

110H 

;ADC1  status  register 

12 

ADC1CC 

equ 

111H 

;ADC1  conversion  command 

13 

ADC1LS 

equ 

111H 

;ADC1  LSB  data 

14 

ADC1MS 

equ 

112H 

:ADC1  MSB  data 

15 

1 

16 

ADC2SR 

equ 

114H 

:ADC2  starts  register 

17 

ADC2CC 

equ 

115H 

:ADC2  conversion  command 

18 

ADC2LS 

equ 

115H 

;ADC2  LSB  data 

19 

ADC2MS 

equ 

116H 

:ADC2  MSB  data 

20 

« 

21 

LCR 

equ 

3FBH 

{line  control  register 

22 

BRDL 

equ 

3F8H 

{baud  rate  divisor  low 

23 

BRDH 

equ 

3F9H 

{baud  rate  divisor  high 

24 

MCR 

equ 

3FCH 

{modem  control  register 

25 

LSR 

equ 

3FDH 

{line  status  register 

26 

RDR 

equ 

3F8H 

{receive  data  register 

27 

28 

■LCD 

29 

:inverted 

BO  WR 

write  output 

30 

icommand  B1  RD 

read  output 

31 

{Signals 

B2  CE 

chip  enable  output 

32 

B3 

/CD 

command  /  data 

output 

33 

B4 

RESET 

controller  reset  ' 

output 

34 

B5 

ADJ 

contrast  adjustment 

output 

35 

B6 

CTRL 

contrast  control 

output 

36 

B7 

RTCE  real-time  clock  echo  output 

37 

38 

A0-A7  D0-D7 

bidirectional  data 

input/output 

Pushbuttons 

C0-C3PB1-PB4  inputs 


Real  Time  Clock 

C4  CLOCK 

model  small 
code 

read  ADC1  channel 
ichan  1-8 

public  _adc1 
_adc1  proc 
push  bp 


input 


add  (ichan, &idata) 


:save  bp  register 
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55 

mov  bp.sp 

56 

mov  ax,ADC1CC 

57 

mov  dx,ax 

58 

mov  ax,[bp+4] 

59 

dec  ax  ;icf 

60 

O 

c 

Q. 

X 

61 

mov  ax,ADC1SR 

62 

mov  dx,ax 

63 

addwt:  in  al,dx 

64 

and  al,3 

65 

cmp  al,3 

66 

jne  addwt 

67 

mov  ax,ADC1LS 

68 

mov  dx,ax 

69 

in  al.dx 

70 

mov  bl,al 

71 

mov  ax,ADC1MS 

72 

mov  dx,ax 

73 

in  al,dx 

74 

mov  ah,al 

75 

mov  al,bl 

76 

mov  cl, 4 

77 

ror  ax, cl 

78 

and  ax,0FFFH 

79 

mov  bx,[bp+6] 

80 

mov  [bx],ax 

81 

pop  bp 

82 

ret 

83 

_adc1  endp 

84 

I 

85 

;read  ADC2  channel 

86 

1 

87 

public  _adc2 

88 

_adc2  proc 

89 

push  bp 

90 

mov  bp,sp 

91 

mov  ax,ADC2CC 

92 

mov  dx,ax 

93 

mov  ax,[bp+4] 

94 

dec  ax  ;icl 

95 

out  dx,al 

96 

mov  ax,ADC2SR 

97 

mov  dx,ax 

98 

adc2wt:  in  al,dx 

99 

and  al,3 

100 

cmp  al,3 

101 

jne  adc2wt 

102 

mov  ax,ADC2LS 

103 

mov  dx,ax 

104 

in  al,dx 

105 

mov  bl,al 

106 

mov  ax,ADC2MS 

107 

mov  dx,ax 

108 

in  al,dx 

;ichan 


jidata  offset 


adc2(ichan,&idata) 


;save  bp  register 


iichan 
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109 

mov  ah,al 

110 

mov  al,bl 

111 

mov  cl  ,4 

112 

ror  ax, cl 

113 

and  ax,0FFFH 

114 

mov  bx,[bp+6] 

115 

mov  [bx],ax 

116 

pop  bp 

117 

ret 

118 

_adc2  endp 

119 

120 

:read  pushbutton 

121 

122 

public  _readpb 

123 

_readpb  proc 

124 

push  bp 

125 

mov  bp,sp 

126 

mov  ax,PIAPTC 

127 

mov  dx,ax 

128 

in  al.dx 

129 

and  al.OFH 

130 

cmp  al,8 

131 

je  rdpb4 

132 

cmp  al,4 

133 

je  rdpbS 

134 

cmp  al,2 

135 

je  rdpb2 

136 

cmp  al,1 

137 

je  rdpbt 

138 

mov  al,0 

139 

jmp  rdpbx 

140 

rdpb4:  mov  al,4 

141 

jmp  rdpbx 

142 

rdpbS:  tinov  al,3 

143 

jmp  rdpbx 

144 

rdpb2;  mov  al,2 

145 

jmp  rdpbx 

146 

rdpb1:  mov  al,1 

147 

rdpbx:  mov  ah,0 

148 

mov  bx,[bp+4] 

149 

mov  [bx],ax 

150 

pop  bp 

151 

ret 

152 

_readpb  endp 

153 

154 

;wait  for  pushbutton  i 

155 

156 

public  _waitpb 

157 

jwaitpb  proc 

158 

mov  ax.PIAPTC 

159 

mov  dx,ax 

160 

wtpbl:  in  al.dx 

:idata  offset 


readpb(&idata) 


isave  bp  register 


:idata  offset 


waitpbQ: 
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clock(&iclock) 


161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 


and  al.OFH 
jnz  wtpbl 
ret 

_waitpb  endp 

:read  real-time  clock 

public  _clock 
_clock  proc 
push  bp  isave  bp  register 

mov  bp.sp 
mov  ax,PIAPTC 
mov  dx,ax 
in  al.dx 
and  al.lOH 
mov  bx,[bp+4] 
mov  [bx],ax 
pop  bp 
ret 

_clock  endp 

iwait  for  real  time  clock  wclockQ : 

public  _wclock 
jwclock  proc 


mov 

ax,PIAPTC 

mov 

dx,ax 

wclkd:  in  al,dx 

;wait  if  high 

and 

al,10H 

jnz 

wclkd 

wclk 

in  al,dx 

iwait  for  high 

and 

al,10H 

jz  wclk 

mov 

ax,PIAPTB 

mov 

dx,ax 

mov 

al,cs:b765dat 

itoggle  b7  RTC  echo 

or 

al,10000000b 

out 

dx,al 

and 

al,7FH 

out 

dx,al 

ret 

_wclock  endp 

f 

initialize  hardware 

inithwdO: 

public  _inithwd 
Jnithwd  proc 

mov  ax, 2  :init  LCD  twice 

mov  di,ax 

mov  al, 01 000000b  ;shutdown  LCD  bias 

mov  cs:b765dat,al 

intdspi;  mov  ax,PIACTR  initialize  LCD 

mov  dx,ax 

mov  al, 1 0001 001  b  :active,  mode  0,  PTA  out. 
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215 

out  dx,al  ; 

PTB  out,  PTC  in 

216 

mov  ax,PIAPTB 

111 

mov  dx,ax 

218 

mov  al, 01 000000b 

;B4  reset  release  +  b765dat 

219 

out  dx,al 

220 

mov  al,01 01 0000b 

;B4  reset  +  b765dat 

221 

out  dx,al 

222 

mov  cx,0FFFFh 

:1  msec  delay 

223 

intdsip:  loop  intdsip 

224 

mov  al, 01 000000b 

;B4  reset  release  +  b765dat 

225 

out  dx,al 

226 

mov  bl, 10000000b 

;mode  set 

227 

call  discmd 

228 

mov  bl,0 

Itext  home  lOOOh 

229 

call  disdat 

230 

mov  bl, 0001 0000b 

231 

call  disdat 

232 

mov  bl,01 000000b 

233 

call  discmd 

234 

mov  bl,00101000b 

itext  area  0028h 

235 

call  disdat 

236 

mov  bl,00000000b 

237 

call  disdat 

238 

mov  bl,01 000001b 

239 

call  discmd 

240 

mov  bl,0 

;graphic  home  OOOOh 

241 

call  disdat 

242 

mov  bl,0 

243 

call  disdat 

244 

mov  bl,01 00001  Ob 

245 

call  discmd 

246 

mov  bl,001 01000b 

;graphic  area  0028h 

247 

call  disdat 

248 

mov  bl,0 

249 

call  disdat 

250 

mov  bl,01 00001 1b 

251 

call  discmd 

252 

mov  bl,1001000b 

idisplay  OFF 

253 

call  discmd 

254 

dec  di 

255 

jnz  intdspi 

256 

ret 

257 

Jnithwd  endp 

258 

259 

:set  LCD  bias  to  midscale  IcdmidQ 

260 

j 

261 

public  Jcdmid 

262 

Jcdmid  proc 

263 

mov  ax,PIAPTB 

264 

mov  dx,ax 

265 

mov  al,cs:b765dat 

266 

or  al,01 100000b 

imidscale  1 1 

267 

out  dx,ai 

268 

mov  al,cs:b765dat 
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:normal  00 


269 

and  al,80H 

270 

out  dx,al 

271 

mov  cs:b765dat,al 

272 

ret 

273 

Jcdmid  endp 

274 

275 

iincrement  LCD  bias 

276 

277 

public  Jcdinc 

278 

Jcdinc  proc 

279 

mov  ax,PIAPTB 

280 

mov  dx,ax 

281 

mov  al,cs:b765dat 

282 

and  al,80H 

283 

out  dx,al 

284 

or  al, 001 00000b 

285 

out  dx,al 

286 

and  al,80H 

287 

out  dx,al 

288 

mov  cs:b765dat,al 

289 

ret 

290 

Jcdinc  endp 

291 

292 

ishutdown  LCD  bias 

293 

294 

public  Jcdoff 

295 

Jcdoff  proc 

296 

mov  ax,PIAPTB 

297 

mov  dx,ax 

298 

mov  al,cs:b765dat 

299 

or  al, 01 000000b 

300 

out  dx,al 

301 

mov  al,cs:b765dat 

302 

ret 

303 

Jcdoff  endp 

304 

305 

iciear  graphic  display 

306 

307 

public  _clear 

308 

_clear  proc 

309 

mov  bl,0 

310 

call  disdat 

311 

mov  bl,0 

312 

call  disdat 

313 

mov  bl,00100100b 

314 

call  discmd 

315 

mov  cx,1BFFh 

316 

clearl:  mov  bl,0 

317 

call  disdat 

318 

mov  bl,  11 000000b 

319 

call  discmd 

320 

loop  clearl 

321 

mov  cx,5120 

322 

mov  bx,offset  image 

IcdincO 


iincrement  00  01  00 


:normal  00 


IcdoffO 


;shutdown  10 


clearO 


laddress  pointer  set 
iclear  text,  attribute,  graphics 


;write  data 


;display  40*128  =  5120  bytes 
;display  image 
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323 

mov  al,0 

324 

cleari:  mov  cs:[bx],al 

325 

inc  bx 

326 

loop  cleari 

327 

ret 

328 

_clear  endp 

329 

330 

;display  ON 

disponO 

331 

332 

public  _dispon 

333 

_dispon  proc 

:display  ON 

334 

mov  bl, 1001 1000b 

335 

C£ill  discmd 

336 

ret 

337 

_dispon  endp 

338 

339 

;display  OFF 

dispoffO 

340 

341 

public  _dispoff 

342 

_dispoff  proc 

343 

mov  bl, 1001 0000b 

idisplay  ON 

344 

call  discmd 

345 

ret 

346 

_dispoff  endp 

347 

} 

348 

;set  pixel  setpix(ix,iy) 

349 

1 

350 

public  _setpix 

351 

_setpix  proc 

352 

push  bp 

isave  bp  register 

353 

mov  bp.sp 

354 

call  setcirp 

355 

or  al.ah 

356 

mov  cs:[bx],al 

;write  image  data 

357 

1 

358 

mov  bl,al 

idisplay 

359 

call  disdat 

360 

mov  bl, 11000000b 

jwrite  data 

361 

call  discmd 

362 

pop  bp 

363 

ret 

364 

_setpix  endp 

365 

1 

366 

:clear  pixel  clrpix(ix,iy) 

367 

i 

368 

public  _clrpix 

369 

_clrpix  proc 

370 

push  bp 

;save  bp  register 

371 

mov  bp,sp 

372 

call  setcirp 

373 

xor  al,ah 

374 

mov  cs:[bx],al 

;write  image  data 

375 

1 

376 

mov  bl,al 

idisplay 
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377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 


call  disdat 

mov  bl,  1 1 000000b  :write  data 
call  discmd 
pop  bp 
ret 

_clrpix  endp 

:clear  line  clrline(in,iy) 

;in  number  of  pixels  to  clear,  iy  line  number,  assume  ix=0  (start  of  line) 

public  _clrline 
_clrllne  proc 
push  bp 
mov  bp,sp 
mov  ax,[bp+4] 
mov  cx,ax 
mov  ax,0 
mov  dx,ax 
mov  ax,[bp+6] 

I 

cirinl;  push  cx 
push  ax 
push  dx 
call  stcirp 
not  ah 
and  al,ah 

mov  cs:[bx],al 

I 

mov  bl,al 
call  disdat 

mov  bl,1 1000000b  iwrite 
call  discmd 

pop  dx  ;ix 

pop  ax  ;iy 

pop  cx  :in 

dec  cx 

jz  cirinx 
inc  dx 
jmp  cirinl 

cIrInx:  pop  bp 
ret 

_clrline  endp 


isave  bp  register 
:in 
:ix=0 

:iy 

;in 

:iy 

;ix 

iwrite  image  data 
;display 


419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 


move  to  ix,iy  move(ix,iy) 


public  _move 
_move  proc 
push  bp 
mov  bp,sp 
mov  ax,[bp+4] 
mov  cs:xpos,ax 
mov  ax,[bp+6] 
mov  cs:ypos,ax 


;save  bp  register 
;ix 

:iy 
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430 

pop  bp 

431 

ret 

432 

_move  endp 

433 

434 

;draw  to  ix,iy 

draw{ix,iy) 

435 

436 

public  _draw 

437 

_draw  proc 

438 

push  bp 

;save  bp  register 

439 

mov  bp,sp 

440 

mov  ax,[bp+4] 

:ix 

441 

mov  cs:x2,ax 

442 

mov  ax,[bp+6] 

:iy 

443 

mov  cs:y2,ax 

444 

mov  ax,1 

445 

mov  cs:drweraf,ax 

446 

call  drwera 

447 

pop  bp 

448 

ret 

449 

_draw  endp 

450 

451 

;erase  to  ix.iy 

erase(ix,iy) 

452 

1 

453 

public  _erase 

454 

_erase  proc 

455 

push  bp 

:save  bp  register 

456 

mov  bp,sp 

457 

mov  ax,[bp+4] 

:ix 

458 

mov  cs:x2,ax 

459 

mov  ax,[bp+6] 

:iy 

460 

mov  cs:y2,ax 

461 

mov  ax,0 

462 

mov  cs:drweraf,ax 

463 

call  drwera 

464 

pop  bp 

465 

ret 

466 

_erase  endp 

467 

i 

468 

;display  text  data  at  position  ix,iy  distxt(ix,iy,ic) 

469 

1 

470 

public  _distxt 

471 

_distxt  proc 

472 

push  bp 

isave  bp  register 

473 

mov  bp,sp 

474 

mov  ax,[bp+4] 

:ix 

475 

mov  cs:xtpos,ax 

476 

mov  ax,[bp+6] 

;iy 

477 

mov  cs;v1pos,ax 

478 

mov  ax,0000Eh 

:shape  table  count  =  14 

479 

mov  cs:stccnt,ax 

480 

mov  dx,ax 

481 

mov  ax,[bp+8] 

:ic 

482 

mul  dl 
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483 

add  ax,  14 

:  reverse  char  shape 

484 

mov  di.ax 

:char*shape  table  count 

485 

dstxst:  mov  cx,7 

;pixel  count 

486 

mov  ah,cs:chrdata[di] 

487 

j 

488 

dstnxp:  rol  ah,1 

489 

jnc  dstxskp 

490 

1 

491 

push  ax 

492 

mov  ax,cs:xtpos 

493 

mov  dx,ax 

494 

mov  ax,cs:ytpos 

495 

call  stcirp 

496 

or  al.ah 

497 

mov  cs:[bx],al 

;write  image  data 

498 

mov  bl.al 

;display 

499 

call  disdat 

500 

mov  bl, 11000000b 

;write  data 

501 

call  discmd 

502 

pop  ax 

503 

504 

dsb(skp:  inc  csrxtpos  :next  pixel 

505 

loop  dstnxp 

jloop  until  8  pixels 

506 

inc  cs:ytpos 

;next  scan  line 

507 

dec  di 

:next  character  code 

508 

sub  cs:xtpos,7 

;reset  x  position 

509 

mov  ax,cs:stccnt 

510 

dec  ax 

;decrement  scan  line  count 

511 

mov  cs:stccnt,ax 

512 

jne  dstxst 

;  until  finished 

513 

pop  bp 

:  restore  bp 

514 

ret 

515 

_distxt  endp 

516 

517 

convert  ix,iy  to  display  address,  set  address  pointer,  read 

518 

image  data  as  al,  set  ah  to  bit  position,  bx  as  pointer 

519 

to  image  data 

520 

521 

ix,  iy  on  stack 

522 

523 

setcirp  proc 

524 

mov  ax,[bp+4] 

;ix 

525 

mov  dx,ax 

526 

mov  ax,[bp+6] 

:iy 

527 

call  stcirp 

528 

ret 

529 

setcirp  endp 

530 

531 

dx  =  ix,  ax  =  iy 

532 

533 

stcirp  proc 

534 

mov  bl,40 

535 

mul  bl 

:ax  =  40*iy 

536 

push  ax 
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537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 


mov 

ax, 239 

sub 

ax,dx 

;ix 

mov 

bl,8 

div 

bl  ;al  =  ix/8,  ah  =  remainde 

mov 

dl.ah 

mov 

dh,0 

mov 

ah,0 

pop 

bx 

push 

dx 

add 

ax,bx 

:ax  =  40*y+mod8(ix) 

mov 

bl.al 

push 

1  ax 

;address 

call 

disdat 

pop 

ax 

push 

1  ax 

mov 

bl.ah 

call 

disdat 

mov 

bl,00100100b 

;address  pointer 

call 

discmd 

> 

mov 

bx,  offset  image 

pop 

ax 

;address 

add 

bx,ax 

mov 

al,cs:[bx] 

;read  image  data 

mov 

dl,al 

) 

pop 

ax 

:remainder:  000  ->  1 1 

I 

mov 

ah,  10000000b 

cmp 

al,0 

jz  ! 

setpd 

1 

shr 

ah,1 

cmp 

al,1 

jz 

setpd 

> 

shr 

ah,1 

cmp 

al,2 

jz 

setpd 

shr 

ah,1 

cmp 

i  ai,3 

jz 

setpd 

i 

shr 

ah,1 

cmp 

1  al,4 

jz 

setpd 

1 

shr 

ah,1 

cmp 

1  al,5 

jz 

setpd 

shr 

ah,1 

cmp  al,6 
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;  image  data 


591 

592 

593 

594 

595 

596 

597 

598 

599 

600 
601 
602 

603 

604 

605 

606 

607 

608 

609 

610 
611 
612 

613 

614 

615 

616 

617 

618 

619 

620 
621 
622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 


jz  setpd 


) 

shr  ah,1 

1 

setpd:  mov  al,dl 

ret 

stclrp  endp 

I 

;output  data  in  bl  to  display 


disdat  proc 
call  chksOI 
mov  ax.PIAPTA 
mov  dx,ax 
mov  al.bl 
out  dx,al 
mov  ax.PlAPTB 
mov  dx,ax 
mov  ah,cs:b765dat 
mov  al, 00001 000b 
or  al,ah 
out  dx,al 

mov  al,00001100b 
or  al,ah 
out  dx,al 

mov  al, 00001 101b 
or  al.ah 
out  dx,al 

mov  al, 00001 100b 
or  al,ah 
out  dx,al 

mov  al,00001000b 
or  al,ah 
out  dx,al 
ret 

disdat  endp 


;load  data 

:B3D 

;B2CE 

:B0W 

;B0  W  release 
:B2  CE  release,  B3  D 


:output  command  in  bl  to  PTA  to  display 

I 

discmd  proc 

call  chksOI 

mov  ax,PIAPTA 

mov  dx,ax 

mov  al,bl 

out  dx,al 

mov  ax,PIAPTB 

mov  dx,ax 

mov  ah,cs:b765dat 

mov  al,00000000b  :B3  /C 

or  al,ah 

out  dx,al 

mov  al, 00000100b  :B2  CE 

or  al,ah 
out  dx,al 
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645 

mov  al, 000001 01b 

:B0W 

646 

or  al,ah 

647 

out  dx,al 

648 

mov  al, 000001 00b 

;B0  W  release 

649 

or  al.ah 

650 

out  clx,al 

651 

mov  al, 00000000b 

;B2  CE  release 

652 

or  al,ah 

653 

out  dx,al 

654 

nop 

655 

nop 

656 

nop 

657 

mov  al,00001000b 

:B3D 

658 

or  al,ah 

659 

out  dx,al 

660 

ret 

661 

discmd  endp 

662 

663 

icheck  status  STA0/STA1 

664 

665 

chksOI  proc 

666 

mov  ax,PIACTR 

667 

mov  dx,ax 

668 

mov  al,1 001 0000b 

:mode  0,  PTA  in 

669 

out  dx,al 

670 

ChksOI  1:  mov  ax,PIAPTB 

671 

mov  dx,ax 

672 

mov  ah,cs:b765dat 

673 

mov  al, 00000000b 

:B3/C 

674 

or  al,ah 

675 

out  dx,al 

676 

mov  al, 000001 00b 

:B2  CE 

677 

or  al,ah 

678 

out  dx,al 

679 

mov  al,00000110b 

:B1  R 

680 

or  al,ah 

681 

out  dx,al 

682 

mov  ax,  PI  APIA 

683 

mov  dx,ax 

684 

in  al,dx 

;read  AO  Al 

685 

mov  bh,al 

686 

mov  ax.PIAPTB 

687 

mov  dx,ax 

688 

mov  ah,cs:b765dat 

689 

mov  al,00000100b 

:B1  R  release 

690 

or  al,ah 

691 

out  dx,al 

692 

mov  al,00000000b 

:B2  CE  release 

693 

or  al,ah 

694 

out  dx,al 

695 

and  bh,3 

;A0  STAO  Al  STA1 

696 

jz  chksOI  1 

697 

1 

698 

mov  al,00001000b 

;B3D 
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699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 
720. 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 


or  al,ah 
out  dx,al 
mov  ax.PIACTR 
mov  dx,ax 

mov  al,  10000000b 
out  dx,al 
chksOIx:  ret 
chksOI  endp 

icheck  status  STAS 

chksS  proc 
mov  ax.PIACTR 
mov  dx.ax 

:mode  0,  PTA  out,  PTB  out 

mov  al,  1001 0000b 
out  dx,al 

;mode  0,  PTA  in,  PTB  out 

chksSI:  mov  ax.PIAPTB 

mov  dx.ax 

mov  ah,cs:b765dat 

mov  al, 00000000b 
or  al,ah 
out  dx,al 

:B3/C 

mov  al, 000001 00b 
or  al,ah 
out  dx,al 

:B2  CE 

mov  al.OOOOOIlOb 
or  al,ah 
out  dx,al 
mov  ax.PIAPTA 
mov  dx,ax 

:Bi  R 

in  al,dx 
mov  bh,al 
mov  ax.PIAPTB 
mov  dx.ax 

;read  STAS 

mov  ah,cs:b765dat 

;******here  movah.al 

mov  al, 000001 00b 
or  al.ah 
out  dx,al 

;B1  R  release 

mov  al.OOOOOOOOb 
or  al.ah 
out  dx,al 

;B2  CE  release 

and  bh,8 
jz  chksSI 

:AS  STAS 

1 

mov  al.OOOOIOOOb 
or  al,ah 
out  dx,al 
mov  ax.PIACTR 
mov  dx,ax 

;BS7D 

mov  al,  10000000b 
out  dx.al 
chksSx:  ret 
chksS  endp 

;mode  0,  PTA  out,  PTB  out 

C-37 


Helmsub.asm 


draw  or  erase  common  code 


753 


754 

drwera  proc 

755 

mov  ax,cs:xpos 

1  ;x1  is  last  xpos 

756 

mov  cs:x1,ax 

757 

mov  bx,cs:ypos 

;  ;y1  is  last  ypos 

758 

mov  cs:y1,bx 

759 

cmp  ax,cs:x2 

;x1=x2? 

760 

jnz  drwerb 

761 

cmp  bx,cs:y2 

:y1=y2? 

762 

jnz  drwerb 

763 

jmp  drwext 

;exit  if  both  equal 

764 

drwerb:  mov 

ax,cs:x2  :xd=x2-x1 

765 

sub  ax,cs:x1 

766 

mov  cs:xd,ax 

767 

mov  cs:xinc,1 

;xinc=+1 

768 

jns  pxddrw 

;xd>=0? 

769 

neg  cs:xd 

II 

1 

770 

neg  cs:xinc 

;xinc=-1 

771 

pxddrw:  mov 

bx,cs:y2  :yd=y2-y1 

772 

sub  bx,cs:y1 

773 

mov  cs:yd,bx 

774 

mov  cs:yinc,1 

:yinc=+1 

775 

jns  pyddrw 

;yd>=0 

776 

neg  cs:yd 

II 

1 

777 

neg  cs:yinc 

;yinc=-1 

778 

pyddrw:  mov 

ax,cs:yd  ;yd2=2*yd 

779 

shl  ax,1 

780 

mov  cs:yd2,ax 

781 

mov  ax,cs:xd 

:xd2=2*xd 

782 

shl  ax,1 

783 

mov  cs:xd2,ax 

784 

mov  ax,cs:xd 

;yd>xd? 

785 

cmp  cs:yd,ax 

786 

jg  Pydxd 

787 

s 

788 

» 

xd>=yd 

789 

mov  ax,cs:yd2 

;err=2*yd-xd 

790 

sub  ax,cs;xd 

791 

mov  cs:err,ax 

792 

drwpla:  mov 

dx,cs:x1  ;plotx1,y1 

793 

mov  ax,cs:y1 

794 

cmp  cs:drweraf,0  ;check  draw  or  erase 

795 

jne  drwa 

796 

call  dispera 

797 

jmp  drwar 

798 

drwa;  call  disppit 

799 

drwar:  mov 

ax,cs:xinc  :x1  =x1  +xinc 

800 

add  cs:x1,ax 

801 

mov  ax,cs:x2 

;x1=x2? 

802 

cmp  cs:x1,ax 

803 

je  drwexi 

804 

mov  ax,cs:yd2 

;err=err+2*yd 

805 

add  cs:err,ax 

806 

cmp  cs:err,0 

:err<=0? 
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807 

808 

809 

810 
811 
812 

813 

814 

815 

816 

817 

818 

819 

820 
821 
822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 


jle  drwpla 

mov  ax,cs:yinc  ;y1=y1+yinc 

add  cs:y1,ax 

mov  ax,cs:xd2  ;err=err-2*xd 

sub  cs:err,ax 
jmp  drwpla 

I 

drwexl:  jmp  drwext 

) 

;  yd>xd 

pydxd:  mov  ax,cs:xd2  ;err=2*xd-yd 

sub  ax,cs:yd 
mov  cs:err,ax 

drwplb:  mov  dx,cs:x1  ;plotx1,y1 

mov  ax,cs:y1 

cmp  cs:drweraf,0  :check  draw  or  erase  flag 

jne  drwb 

call  dispera 

jmp  drwbr 

drwb:  call  disppit 

drwbr:  mov  ax,cs:yinc  :y1=y1+yinc 

add  cs:y1,ax 

mov  ax,cs:y2  :y1=y2? 

cmp  cs:y1,ax 
je  drwext 

mov  ax,cs:xd2  :err=err+2*xd 

add  cs:err,ax 

cmp  cs:err,0  :err<=0? 

jle  drwplb 

mov  ax,cs:xlnc  ;x1=x1+xinc 

add  cs:x1  ,ax 

mov  ax,cs:yd2  :err=err-2*yd 

sub  cs:err,ax 
jmp  drwplb 

i 

drwext:  mov  dx,cs:x2  ;save  x2  as  xpos 
mov  cs:xpos,dx 

mov  ax,cs:y2  ;save  y2  as  ypos 
mov  cs:ypos,ax 

cmp  cs:drweraf,0  icheck  draw  or  erase  flag 

jne  drwexa 
call  dispera 
jmp  drwexr 
drwexa:  call  disppit 
drwexr:  ret 
drwera  endp 
> 

disppit  proc 

call  stcirp  ;ix->dx,  iy->ax 

or  al,ah 

mov  cs:[bx],al  :write  image  data 


mov  bl,al 
call  disdat 


jdisplay 


861 

862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 
881 
882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 


mov  bl,  11000000b  :writedata 

call  discmd 

ret 

disppit  endp 


dispera  proc 
call  stcirp 
xor  al,ah 

mov  cs:[bx],al  iwrite  image  data 

mov  bl,al  :display 

call  disdat 

mov  bl,  11000000b  ;writedata 

call  discmd 

ret 

dispera  endp 


1 

chdata  dw  ? 
cdata  dw  ? 

pdata  dw  ? 

rdata  dw  ? 

xpos  dw  ? 

ypos  dw  ? 

xtpos  dw  ? 

ytpos  dw  ? 

stccnt  dw  ? 

xinc  dw  ? 

xd  dw  ? 

xd2  dw  ? 

x1  dw  ? 

x2  dw  ? 

yinc  dw  ? 

yd  dw  ? 

yd2  dw  ? 

y1  dw  ? 

y2  dw  ? 

err  dw  ? 

drweraf  dw  ? 


) 

image  db  5120dup(0) 


chrdata  db  00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,7EH,00H:CUR 
db  00H,00H,00H,00H,00H,00H.00H.00H,00H,00H,00H,00H,00H,00H:NULL 
db  255  dup(O) 
db  179dup(0) 

db  00H,10H,10H,10H,10H,10H,10H,00H,10H,00H,00H,00H,00H,00H  ;! 
db  OOH,28H,28H,28H,28H,OOH,OOH,OOH,OOH,OOH,OOH,OOH,OOH,OOH 
db  OOH,OOH,28H,28H,7CH,28H,28H,7CH,28H,28H,OOH,OOH,OOH,OOH  ;# 
db  OOH,10H,38H,54H,50H,30H,18H,14H,54H,38H,10H,OOH,OOH,OOH  ;$ 
db  O0H,64H,64H.08H,O8H,10H,20H,20H,4CH,4CH,00H,O0H,O0H,0OH  ;% 
db  00H,30H,48H.48H,50H,20H,54H,4CH,48H,34H,00H,00H,00H,00H  ;& 
db  OOH,10H,10H,10H,20H,OOH,OOH,OOH,OOH,OOH,OOH,OOH,OOH,OOH  ;* 
db  OOH,08H,1OH,10H,10H,10H,10H,10H,1OH,O8H,O0H,0OH,O0H,O0H  ;( 
db  00H.20H,10H,10H,10H,10H,10H,10H,10H,20H,00H,00H,00H,00H ;) 
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915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 


db  00H,00H,10H,54H,38H,10H,38H,54H,10H,00H,00H,00H.00H,00H  ;* 
db  00H,00H,00H,10H,10H,7CH,10H,10H,00H,00H,00H,00H,00H,00H  ;+ 
db  00H,00H,00H,00H,00H,00H,00H,00H,10H,10H,10H,20H,00H,00H 
db  00H,00H,00H,00H,00H,00H,7CH,00H,00H,00H,00H,00H,00H,00H 
db  00H,00H,00H,00H,00H,00H,00H,00H,10H,10H,00H,00H,00H,00H 
db  OOH,04H,04H,08H,O8H,10H,20H,2OH,4OH,4OH,00H,00H,00H,00H ;/ 
db  OOH,38H,44H,44H,4CH,54H,64H,44H,44H,38H,OOH,OOH,OOH,OOH  :0 
db  00H,10H,30H,10H,10H,10H,10H,10H,10H,38H,00H,00H,00H,00H  ;1 
db  00H,38H,44H,04H,08H,10H,20H,40H,40H,7CH,00H,00H.00H.00H  :2 
db  OOH,38H,44H,O4H,04H,18H,O4H,04H,44H,38H,00H,00H,00H,O0H  :3 
db  00H,08H,08H,18H,28H,48H,48H,7CH,08H,08H,00H,00H,00H,00H  :4 
db  OOH,7CH,40H,40H,78H,44H,04H,04H,44H,38H,OOH,OOH,OOH,OOH  :5 
db  OOH,18H,24H,40H,40H,78H,44H,44H,44H,38H,OOH,OOH,OOH,OOH  :6 
db  00H,7CH,44H,04H,08H,08H,10H,10H,10H,10H,00H,00H,00H,00H  :7 
db  00H,38H,44H,44H,44H,38H,44H,44H,44H,38H,00H,00H,00H,00H  :8 
db  00H,38H,44H,44H,44H,3CH,04H,04H,48H,30H,00H,00H,00H,00H  :9 
db  OOH,OOH,OOH,10H,10H,OOH,OOH,OOH,10H.10H,OOH,OOH,OOH,OOH 
db  OOH,OOH,OOH,10H,10H,OOH,OOH,OOH,10H,10H.10H,20H,OOH,OOH ;; 
db  OOH,OOH,OOH,08H,10H,20H,10H,08H,OOH,OOH,OOH,OOH,OOH,OOH  ;< 
db  OOH,OOH,OOH,OOH,7CH,OOH.7CH,OOH,OOH,OOH,OOH,OOH,OOH,OOH  ;= 
db  OOH,OOH,OOH,20H,10H,08H,10H,20H,OOH,OOH,OOH,OOH,OOH,OOH  ;> 
db  0OH,38H,44H,O4H,O8H,1OH,1OH,OOH,1OH,1OH.OOH,O0H,OOH,OOH  ;? 
db  00H,38H,44H,4CH,54H,54H,54H,4CH,40H,3CH,00H,00H,00H,00H 
db  OOH,10H,28H,44H,44H,7CH,44H,44H,44H,44H,OOH,OOH,OOH,OOH  ;A 
db  00H,78H,24H,24H,24H,38H,24H,24H,24H,78H,00H,00H.00H,00H  :B 
db  00H,38H,44H,40H,40H,40H,40H,40H,44H,38H,00H,00H,00H,00H  :C 
db  OOH,78H,24H,24H,24H,24H,24H,24H,24H,78H,OOH,OOH,OOH,OOH  ;D 
db  00H,7CH,24H,20H,28H,38H,28H,20H,24H,7CH,00H,00H,00H,00H  ;E 
db  00H,7CH,24H,20H,28H,38H,28H,20H,20H,70H,00H,00H,00H,00H  :F 
db  00H,38H,44H,40H,40H,4CH,44H,44H,4CH,34H,00H,00H,00H,00H  :G 
db  00H,44H,44H,44H,44H,7CH,44H,44H,44H,44H,00H,00H,00H,00H  :H 
db  OOH,38H,10H,10H,10H,1OH,1OH,1OH,10H,38H,00H,0OH,00H,O0H  ;l 
db  OOH,3CH,O8H,08H,08H,O8H,O8H,48H,48H,3OH,OOH.00H,00H,O0H  ;J 
db  00H,64H,24H,24H,28H,30H,28H,24H,24H,64H,00H,00H,00H.00H  :K 
db  00H,70H,20H,20H,20H,20H.20H,20H,20H,7CH,00H,00H,00H,00H  :L 
db  OOH,44H,44H,6CH,54H,44H,44H,44H,44H,44H,00H,00H,00H,00H  ;M 
db  OOH,44H,44H,44H,64H,54H,4CH,44H,44H,44H,OOH,OOH,OOH,OOH  ;N 
db  00H,38H,44H,44H,44H,44H,44H.44H,44H,38H,00H,00H,00H,00H  ;0 
db  OOH,78H,24H,24H,24H,38H,20H,20H,20H,7OH,00H,00H,00H,O0H  :P 
db  00H,38H,44H,44H,44H,44H,44H,54H,4CH,38H,04H,00H,00H.00H  :Q 
db  OOH,78H,24H,24H,24H,38H,28H,24H,24H,64H,OOH,OOH,OOH,OOH  ;R 
db  00H,38H,44H,40H,20H,10H,08H,04H,44H,38H,00H,00H,00H,00H  :S 
db  00H,7CH,54H,10H,10H,10H,10H,10H,10H,10H.00H,00H,00H,00H  :T 
db  00H,44H,44H,44H,44H,44H,44H,44H,44H,38H,00H,00H,00H,00H  :U 
db  00H,44H,44H.44H,44H,44H,44H,44H,28H,10H,00H,00H,00H,00H  ;V 
db  O0H,44H,44H,44H,44H.44H,54H,54H,54H,28H,00H,00H,00H,O0H  :W 
db  00H,44H,44H,44H,28H,10H,28H,44H,44H,44H,00H,00H,00H,00H  ;X 
db  O0H,44H,44H,44H,28H,10H,10H,1OH,1OH,38H,00H,00H,0OH,O0H  ;Y 
db  00H,7CH,44H,04H,08H,10H,20H,40H,44H,7CH,00H,00H,00H,00H  ;Z 
db  0OH,38H,2OH,20H,20H,20H,2OH,20H,20H,38H,00H,00H,00H,O0H ;[ 
db  00H,40H,40H,20H,20H,10H,08H,08H,04H,04H,00H,00H,00H,00H  :\ 
db  00H,38H,08H,08H,08H,08H,08H,08H,08H,38H,00H,00H,00H,00H ;] 
db  00H,00H,00H,00H,10H,28H,44H,00H,00H,00H,00H,00H,00H,00H 
db  OOH,OOH,OOH,OOH,OOH,OOH,OOH,OOH,OOH,7CH,OOH,OOH,OOH.OOH 
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969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 

1000 
1001 
1002 

1003 

1004 

1005 


db  00H,10H,10H,10H,08H,00H,00H,00H,00H,00H,00H,00H,00H,00H 
db  00H,00H,00H,00H,38H,48H,48H,48H.48H,34H,00H,00H,00H,00H  ;a 
db  OOH,60H,20H,20H,38H,24H.24H,24H,24H,78H,OOH,OOH,OOH,OOH  ;b 
db  00H,00H,00H,00H,38H,44H,40H,40H,44H,38H,00H,00H,00H,00H  :c 
db  000,18H,08H,08H,38H,48H,48H,48H,48H,34H,00H,00H,00H,00H  ;d 
db  00H,00H,00H,00H,38H,44H,7CH,40H,44H.38H,00H,00H.00H,00H  :e 
db  00H,O8H,14H,10H,10H,38H,1OH,1OH,10H,10H,00H,00H,0OH,0OH  ;f 
db  00H,00H,00H,00H,34H,48H,48H,38H,20H,38H,44H,44H,38H,00H  :g 
db  0OH,60H,20H,20H,38H,24H,24H,24H,24H,64H,00H,00H,00H,0OH  ;h 
db  00H,30H,00H,00H,30H,10H,10H,10H,10H,38H,00H,00H,00H,00H  ;i 
db  00H,18H,00H,00H,18H,08H,O8H,08H,08H,08H,08H,28H,10H,O0H  ;j 
db  00H,60H,20H.20H,24H,28H,30H,28H.24H.64H,00H,00H,00H,00H  :k 
db  00H,30H,10H,10H,10H,10H,10H,10H,10H,38H,00H,00H,00H,00H  ;! 
db  OOH,OOH,OOH,OOH,68H.54H.54H,54H,44H,44H,OOH,OOH,OOH,OOH  ;m 
db  00H,00H,00H,00H,58H,64H,44H,44H,44H,44H,00H,00H,00H,00H  :n 
db  OOH,OOH,OOH,OOH,38H,44H,44H,44H,44H,38H,OOH,OOH,OOH,OOH  :o 
db  00H,00H,00H,00H,58H,24H,24H,24H,34H,28H,20H,20H,60H,00H  ;p 
db  OOH,OOH,OOH,OOH,34H,48H,48H,48H,58H,28H,08H,08H,OCH,OOH  ;q 
db  00H,00H,00H,00H,58H,24H.20H,20H,20H,70H,00H,00H,00H,00H  :r 
db  00H,00H.00H,00H,38H,44H,30H,08H,44H,38H,00H,00H,00H,00H  :s 
db  0OH,1OH,10H,10H,38H,10H,10H,10H,14H,08H,0OH,0OH,O0H,O0H  :t 
db  0OH,00H,00H,00H,48H,48H,48H,48H,48H,34H,00H,00H,00H,00H  :u 
db  00H,00H,00H,00H,44H,44H,44H,44H,28H,10H,00H,00H,00H,00H  :v 
db  00H,00H,00H,00H,44H,44H,54H,54H,54H,28H,00H,00H,00H,00H  ;w 
db  OOH,OOH,OOH,OOH,44H,28H,10H,10H,28H,44H,OOH,OOH,OOH,OOH  ;x 
db  00H,00H,00H,00H,44H,44H,44H,24H,1CH,04H,04H,48H.30H,00H  ;y 
db  00H,00H,00H,00H,7CH,04H,08H,10H,20H,7CH,00H,00H,00H,00H  :z 
db  00H,O8H,10H,10H,10H,20H.10H,1OH,1OH,08H,00H,O0H,OOH,O0H  ;{ 
db  0OH,1OH,10H,10H,10H,O0H,10H,10H,1OH,10H,00H,00H,00H,00H  ;| 
db  00H,20H,10H,10H,10H.08H,10H,10H,10H,20H,00H,00H,00H,00H  ;} 
db  OOH,OOH,OOH,OOH.OOH,34H,48H,OOH,OOH,OOH,OOH,OOH,OOH,OOH 

b765dat  db  ? 

f 

end 

1 

:end  of  helmsub.asm 
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